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List String-out Regions 
(String-out Subroutine Regions also Required) 


RE LA4000 
RE LB4013 
RE LC4042 
RE MC4067 
RE LD4105 
RE MD4132 
RE ND4165 

R r? r t? An i *7 
Lj L I 

RE LF4241 
RE NF4305 
RE LG4344 
RE LH4374 
RE LI4441 
RE LJ4503 
RE L04545 
RE LP4551 
RE LQ4612 
RE LR4642 
RE LS4653 
RE LT4721 
RE LU4762 
RE LV5011 
RE LW5065 
RE LX5114 
RE ZA5141 
RE ZB5204 
RE ZC5240 
RE ZD5271 
RE ZE5306 
RE ZF5347 
RE ZG5404 
RE ZH5444 
RE ZI5503 
RE ZJ5544 
RE ZK5602 
RE ZL5634 
RE ZM5664 
RE PB5675 
RE PC5730 
RE PD5773 
RE PE6025 
RE PG6040 
RE PH6072 
RE PI6130 
RE PJ6163 
RE PK6211 
RE PL6253 
RE PM6301 
RE PN6334 
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RE P06354 
RE PP6405 
RE PQ6445 
RE PR6476 
RE PT6541 
RE PU6603 
RE PV6646 
RE PW6716 
RE PX6743 
RE PY6767 
RE PZ7037 
RE SA7063 
RE SB7125 
RE SC7163 
RE SD7207 
RE SE7245 
RE SF7306 
RE SG7365 
RE SH7424 
RE SI7463 
RE SK7506 
RE SL7550 


RE LY7607 
RE LZ7660 


Indicators, Counters, 
Temporaries, etc. 
Heading List 


RE WR50023 
RE WP22 


Rewind List 

Maximum number of Call Words 
in Rewind List 
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List String-Out Routine 



IA 

LA 


0 

MJ 

0 

CT 

1 

TV 

LW12 

LP17 

2 

TU 

LW12 

LP23 

3 

TP 

LW13 

EW3 

4 

TP 

LV12 

WL5 

5 

RP 

10074 

LA7 

6 

TP 

LV12 

LZ 

7 

TP 

LV22 ' 

Q I 

10 

QS 

Q 

12 J 

11 

RP 

10051 

LB 

12 

TP 

LV12 

LY 


CA 

LA13 



IA 

LB 


0 

RJ 

SY 

SY 1 

1 

EJ 

LX14 

LB 

2 

EJ 

LX15 

LB 

3 

EJ 

LX12 

ZA 

4 

TP 

SY7 

Q 

5 

QJ 

LC yes 

LB 6 no 

6 

TP 

SY 11 

Q 

7 

QJ 

LB10 yesLB12 no 

10 

TP 

SY12 

Q 

11 

QJ 

LB12 no 

ZA4 yes 

12 

EJ 

LX 13 

ZA13 

13 

EJ 

LX14 

LB22 yes 

14 

EJ 

LX15 

LB22 yes 

15 

EJ 

LX 16 

ZA17 yes 

16 

EJ 

LX17 

LB20 

17 

MJ 

0 

ZA30 

20 

IJ 

LY44 

LB22 no 

21 

MJ 

0 

ZA24 

22 

RJ 

SY 

SY1 

23 

EJ 

LX 12 

LB25 

24 

MJ 

rv 

u 

LB4 

25 

TP 

LY44 

A 

26 

ZJ 

ZA37 no 

LF yes 


CA 

LB 27 



Begin List String-out 
Exit to string-out control 
Preset add. 1st var. ind. word -1 
Preset inst. to preset add. in assem. 
blk. 

Preset add. of 1st C.W. in S.O. -1 in 
"C.W. to S.O." rtn. 

Zeroize variable count in String-out 
List. 

Zeroize Heading List 

Set "list" indicator in fixed 
location 12 . 

Zeroize assem. blk & temps. 


Get next symbol ( 1 st six char. sym. 

—> A) 

Sym. = comma? 

Sym. = semi-colon? 

1st var. = "tape"? Yes—>Alarm #1 
Var. ind .—>Q 
Sym. = variable? 

Digit or dec. pt. ind .—> Q 
Sym. possibly = constant? 

Sym. contains letter ind. —> Q 
Sym. = constant? Yes—> Alarm #2 
Sym. = "A ."? Yes —> Alarm *3 
Sym. = comma? 

Sym. = semi-colon? 

Sym. = open parenthesis? Yes 
Alarm #4 

Sym. = close parenthesis? 

No=>Alarm #6 

Decrease parenthesis level; close 
parenthesis on level zero? 

Yes =>Alarm *5 
Get next symbol 

Sym. = tape? Yes —> tape designation 

phase 

No—> (D 

"Tape" on parenthesis level zero? 
No=s> printout *7 
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Variable Phase (Fix & Fl. Pt. Var. Section) 


© 


IA 

LC 



0 

RJ 

RH 

RH1 

Check for legal variable sym. 

1 

TP 

SY2 

LY16 

Variable Sym.—> temp. 


2 

TP 

LV2 

A 

6 in **V M —> A 


3 

TJ 

SY5 

MC6 yes 

* char, in sym. > 6? 


4 

RJ 

TA 

TA1 

Var. in Combination List? 


5 

MJ 

0 

LC17 

Not in List 


6 

TP 

TA4 

Q 

Var. in Comb. List —> CW —> Q 


7 

TP 

Q 

TF2 

V 


10 

QT 

LV5 

A 

1st two octal digits of CW —> A 


11 

EJ 

LV5 

LD 

Subscripted var. (77- ) CW? 


12 

EJ 

LV6 

LE 

Function (66- ) CW? 


13 

EJ 

LV7 

MC6 

Floating point var. (65- ) CW? 


14 

EJ 

LV10 

MC2 

Fixed point var. (64- ) CW? 


15 

TJ 

LV43 

ZB 

Pseudo Op. (5-) CW? —> Alarm #8 


16 

MJ 

0 

ZB5 

No; Library (4--) CW? => Alarm *9 


17 

TP 

LVll 

TF 

Number of words in file (3 in "u")—> 
1st line file build-up 


20 

TP 

SY2 

TF1 

XS3 sym. —> 2nd line file build-up 


21 

TP 

LV12 

TF3 

Format (zero )—> 4th line file build-up 


22 

RJ 

TK 

TK1 

Obtain avail, last 3 digits for 65- 

or 64- CW 


23 

TP 

SY10 

Q 

Fix. pt. ind. —> Q 


24 

QJ 

MC yes 

MC4 no 




CA 

LC25 






Non- 

-Subs (Fix & Fl. Pt.) Var. Section 



0 

IA 

AT 

MC 

LV10 

TF2 

64— C.W. —> 3rd line file build-up 


1 

RJ 

TE 

TE 1 

Add fix pt. var. file—> Combination List 

Fix. 

2 

RJ 

LP 

LP4 

Adv. & ck. var. count & set fix pt. 

Pt. 
Var. 

3 

MJ 

0 

MC7 

ind. bit. 


4 

AT 

LV7 

TF2 

65-C.W .—> 3rd line file build-up 


5 

RJ 

TE 

TE 1 

Add fl. pt. var. file—> Combination List 

Fl. 

6 

RJ 

LP 

LP1 

Adv. & ck. var. count & set fl. pt. ind. 

Pt. 

Var. 

7 

TP 

TF2 

Q 

bit 

64 - or 65- C.W .—> 0 (input var. 

list S.O.) 

64--or 65- C.W.—> var. list S.O. 


10 

RJ 

LO 

LOl 


11 

RJ 

LR 

LR 1 

Store XS3 sym. for Hdg. Edit 


12 

RJ 

SY 

SY1 

Get next sym. 

@ 

13 

EJ 

LX 14 

LB22 

Sym. = comma? 


14 

EJ 

LX15 

LB22 

Sym. = semi-colon? 


15 

MJ 

0 

ZB12 

No. =$> Alarm *10 



CA 

MC16 
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Subscripted Variable Section 



IA 

LD 


0 

RJ 

LO 

L01 

1 

RJ 

LP 

LP1 

2 

RJ 

LR 

LR 1 

3 

TV 

TA5 

LY 

4 

TP 

LV12 

LY45 

5 

RJ 

SY 

SYl 

6 

EJ 

LX 16 

LD10 

7 

MJ 

0 

ZB21 

10 

TP 

LV12 

LY46 

11 

RJ 

LR 

LR 1 

12 

RJ 

SY 

SYl 

13 

TP 

SY7 

Q 

14 

QJ 

MD yes 

LD15 no 

15 

TP 

SYll 

Q 

16 

QJ 

ND yes 

LD17 no 

17 

EJ 

LX17 

ND20 

20 

EJ 

LX 13 

ZB27 

21 

EJ 

LX 14 

LD12 

22 

EJ 

LX15 

LD12 

23 

EJ 

LX 16 

ZC 

24 

MJ 

0 

ZC 6 


CA 

LD25 



77 -CW Var. List S.O. 

Adv. & check var. count & set FI 
Pt. Ind, bit 

Store XS3 sym. for Heading Edit 
No. of subscripts —> Index ctr 
(c^) 

Zeroize count of subscripts proe 
essed 

Get next sym. 

Sym. = open parenthesis? 

No=> Alarm #11 

Set subscript parenthesis level 
= zero 

Store XS3 sym. for Hdg. Edit 
Get next sym. 

Variable ind .—> Q 
Sym. = variable? 

Digit or dec. pt. ind .—> Q 
Sym. possible = constant? ( 1 st 
char. = digit or dec. pt.) 

Sym. = close parenthesis? 

Sym. = A .? Yes =>Alarm *12 
Sym. = comma? 

Sym. = semi-colon? 

Sym. = open parenthesis? Yes 
Alarm *13 
No ==*• Alarm *14 
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11 


12 

13 

16 


0 

IA 

EJ 

MD 

LX12 

ZC14 

Variable = ’’Tape"? Yes=> Alarm #15 

1 

RJ 

RH 

RH1 

Legal variable sym. (No; Alarm string-out 

2 

TP 

LV2 

A 

subs) 

6 in "v" —>A 

3 

TJ 

SY5 

MD31 yes 

No. char, in sym. > 6 ? 

4 

RJ 

TA 

TA1 

Var. in Comb. List? 

5 

MJ 

0 

MD17 

Not in list 

6 

TP 

TA4 

Q 

Var. in list=^CW —> Qy 

7 

QT 

LV5 

A 

1 st two octal digits of CW —> A 

10 

EJ 

LV10 

ND7 

64— CW? (Fix Pt. Var.) 

11 

TJ 

LV7 

MD15 

4 ,- or 5 -CW? (Lib. Rtn. or 

12 

TJ 

LV 6 

ZC21 

Pseudo Op.) 

65- CW? (fl. pt. var.) Yes => 

13 

TJ 

LV5 

ZO 

Alarm #16 

66 - C.W. ? (function) Yes*=> Alarm #17 

14 

MJ 

0 

ZE 

77— C.W.? (subs, var.)**> Alarm #18 

15 

TJ 

LV43 

ZF 6 

4 -C.W.? (pseudo op.) Yes => Alarm 

16 

MJ 

0 

ZF 

#20 

5 -CW? (library rtn.) => Alarm #19 

17 

TP 

SY10 

Q 

Fix pt. var. ind. —> Q 

20 

QJ 

MD21 

ZC21 no 

Sym.= fix pt. var? No ==> Alarm #16 

21 

TP 

LV11 

TF 

No. of words in file (3 in "u") —> 1st 

22 

TP 

SY2 

TFI 

line file build-up 

XS3 sym .—> 2nd line file build-up 

23 

TP 

LV12 

TF3 

Format (zero) —> 4th line file build-up 

24 

RJ 

TK 

TK1 

Obtain avail, last 3 digits for 64— 

25 

AT 

LV10 

TF2 

CW 

64- CW — > 3rd line file build-up 

26 

RJ 

TE 

TE 1 

Add fix pt. var. file —> Combination List 

27 

TP 

TF2 

Q 

64- CW —> Q (input for var. list 

S.o.) v 

30 

MJ 

0 

ND7 

31 

TP 

SY10 

Q 

Fix pt. var. ind.—>Q 

32 

QJ 

ND11 yes 

ZC21 no 

Sym.= fix pt var.? No => Alarm #16 


CA 

MD33 
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© 

0 

IA 

TP 

ND 

SY13 

Q 


1 

A 

QJ 

ZF14 yes 

ND2 no 


2 

RJ 

RD 

RD1 


3 

TP 

SY2 

RS4 


4 

RJ 

RS2 

RS 


5 

TP 

RS3 

A 


6 

RJ 

GW 

GW1 


7 

RJ 

LO 

LO 1 


10 

RJ 

LR 

LR1 

H 

11 

RA 

LY45 

LV 

V_ S 

12 

RJ 

SY 

SY1 


13 

EJ 

LX14 

LD11 


14 

EJ 

LX 15 

LD11 

© 

15 

EJ 

LX13 

ZB27 yes 


16 

EJ 

LX17 

ND20 


17 

MJ 

0 

ZF24 


20 

IJ 

LY46 

LD12 no 


21 

RJ 

LR 

LR1 


22 

TP 

LY45 

A 


23 

EJ 

LY 

ND25 


24 

MJ 

0 

ZG 


25 

RJ 

SY 

SY1 


26 

EJ 

LX14 

LB22 


27 

EJ 

LX15 

LB22 

© 

30 

EJ 

LX13 

ZG5 


31 

MJ 

0 

ZG12 



CA 

ND32 



Superscript indicator—>Q 
Sym.= Superscript const.; Yes —**Alarm 
#21 

Const.= fix pt.? (No; Alarm in string-out 
subs) 

XS3 fix point constant —> input conversion 
routine 

Convert XS3 const.—> octal 

Octal constant—»A 

Constant —> Const. Pool & Const. GW 

% 

64-or 67-CW —> var. list 

string-out 

Store XS3 sym. for Hdg. Edit 
Adv. count of subscripts processed 
Get next sym. 

Symbol = comma? 

Symbol = semi-colon? 

Sym.= End sent, sym ? Yes => Alarm #12 
Sym = close parent.? 

No => Alarm #22 

Is this close subscript parent.? (i.e, 
parent, on level zero) 

Store XS3 close parent* for Hdg. Edit 
No. of valid subscripts processed —» A 
Correct no. of subscripts for subs, var.? 
No-==> Alarm #23 
Get next sym. 

Sym.= comma? 

Sym.= semi-colon? 

Sym.= end sent, sym.? Yes *=► Alarm #24 
No=^ Alarm #25 
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Subroutine to handle 
arguments of function. 
(Ref. by Alarm #17A & 26) 


Variable Phase (Function Section) 


21 


0 

IA 

RJ 

LE 

LO 

LO 1 

66-CW —> Var. list string-out 

1 

RJ 

LP 

LP1 

Adv. & check var. count. & set ind. bit 

2 

RJ 

LR 

LR1 

(fl. pt.) 

Store XS3 symbol for Hdg. Edit 

3 

RJ 

SY 

SY1 

Get next sym. 

4 

EJ 

LX 16 

ZG16 

Sym.= open parent.? Yes=> Alarm 

5 

MJ 

0 

MC13 

*26 

function symbol w/o arguments 

6 

TV 

LW26 

LE11 


7 

TP 

LV12 

LY47 

Set function parent, level _» zero 

10 

TP 

SZ2 

LY50 

Function symbol —> temp. 

11 

RJ 

SY 

[SY1] 


12 

EJ 

LX17 

LE20 yes 

Sym.= close parenthesis? 

13 

EJ 

LX 16 

LE17 yes 

Sym.= open parenthesis? 

14 

EJ 

LX12 

ZG27 yes 

Sym.= "Tape"? Yes=> Alarm #27 

15 

EJ 

LX13 

ZG33 yes 

Sym.= space-period ( A.)? Yes => 

16 

MJ 

0 

LEI 1 

Alarm #28 

17 

RA 

LY47 

LV1 

Advance function parent, level by two 

20 

IJ 

LY47 

LE11 

Close parent, for arguments of function? 

,21 

MJ 

0 

[30000] 


CA 

LE22 
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Tape Designation Phase 





IA 

LF 




0 

RJ 

SY 


SY1 

Get next symbol 

i 

EJ 

LX13 


ZH 

Sym.= " A ."? Yes => Alarm #29 

2 

TP 

SY11 


Q 

Digit or dec. pt. ind. — >Q 

3 

QJ 

NF yes 

LF4 no 

Tape sym.= constant? 

4 

TP 

SY7 


Q 

Var. ind.— >Q 

5 

QJ 

LF13 

yes 

LF 6 no 

Tape sym.= variable? 

6 

EJ 

LX 14 


ZH4 yes 

Sym.= comma? Yes ■=> Alarm #30 

7 

EJ 

LX 15 


ZH4 yes 

Sym.= semi-colon? Yes Alarm #30 

10 

EJ 

LX16 


ZH10 yes 

Sym.= open parent.? Yes —* Alarm 
#31 

11 

EJ 

LX17 


ZH14 yes 

Svm.= close parent.? Yes—?Alarm 
#32 

12 

MJ 

0 


ZH20 

No => Alarm #33 

13 

RJ 

RH 


RH 1 

Sym.= legal variable? (Alarm in 
string-out subs) 

14 

TP 

LV2 


A 

6 in "v" —> A 

15 

TJ 

SY5 


LF42 yes 

No. of char, in sym. > 6 ? 

16 

RJ 

TA 


TA1 

Var. in Combination List 

17 

MJ 

0 


LF26 

Not in list 

20 

TP 

TA4 


Q 

Var. in list=^CW > Q v 

21 

QT 

LV5 


A 

1st two octal digits of CW —» A 

22 

EJ 

LV10 


LF40 yes 

64- CW? (fix pt. var.) 

23 

TJ 

LV43 


ZH32 yes 

4 -CW? Pseudo Op.) Yes => Alarm 

#35 

24 

TJ 

LV10 


ZH25 yes 

5 -CW? (Lib. Rtn.) Yes =* Alarm #34 

25 

MJ 

0 


ZI 

No => Alarm #36 

26 

TP 

SY10 


Q 

Fix. pt. var. ind.—» Q 

27 

QJ 

LF30 

yes 

ZI no 

Sym.= fix pt. var.? No=» Alarm #36 

30 

TP 

LV11 


TF 

No. of words in file (3 in "u")—>lst 
line file build-up 

31 

TP 

SY2 


TF1 

XS3 sym.— > 2nd line file build-up 

32 

TP 

r v\o 

uv -L<m 


TF3 

Format (zero) — > 4th line file build-up 

33 

RJ 

TK 


TK1 

Obtain avail, last 3 digits for 64- 

CW 

34 

AT 

LV10 


TF2 

54 — CW —> 3rd line file build-up 

35 

RJ 

TE 


TE1 

Add. file to Comb. List 

36 

SP 

TF2 


17 

64- CW —> "u" of A 

37 

MJ 

0 


NF12 


40 

SP 

TA4 


17 

64- CW —» "u" of A 

41 

MJ 

0 


NF12 


42 

TP 

SY10 


Q 

Fix. pt. ind .—> Q 

43 

QJ 

NF26 

yes 

ZI no 

Sym.= fix. pt var.? No ==>Alarm #36 


CA 

LF44 
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Tape Designation Phase (cont.) 


0 

IA 

RP 

NF 

20011 

NF2 

r 

1 

EJ 

LX1 

NF5 

Tape sym.= XS3 |2,3,4,5,6,7,8,9,10 

2 

EJ 

LX 

ZM 

Tape number =1? Yes=>Alarm #56 

3 

RJ 

RD 

RD1 

Tape number = fixed point? (Alarm in 

4 

MJ 

0 

ZI7 

string-out subs) 

=£> Alarm #37 

5 

TP 

A 

RS4 


6 

RJ 

RS2 

RS 

Convert XS3 tape number. 

7 

TP 

RS3 

A 

Octal tape # —> A 

10 

RJ 

GW 

GW1 

Tape number —> const, pool & const. CW 

11 

SP 

Q 

17 

==> Qv 

67 - CW (const, tape #)—> "u" of A 

12 

TP 

A 

WL4 

Tape # CW (67 - or 64 - )— > S.O. 

13 

TU 

WR 

NF14 

list. 

14 

RP 

£3000(11 

NF16 


15 

EJ 

WR1 

NF26 yes 

Tape # CW in Rewind List 

16 

SP 

WR 

0 

Count of Tape # CW’s in Rewind List 

17 

TJ 

LW24 

NF22 no 

A 

Max. no. CW*s in Rewind List (18 jq) 

20 

TP 

A 

Q 

21 

QJ 

NF26 

ZM4 

(Q+) => Alarm #57 printout 

22 

RA 

WR 

LV15 

(Q-) ^^Printout made previously 

Adv. (1 in "u" & "v") count of CW’s 

23 

SA 

LW25 

0 

in Rewind List 

Form next avail, add. in Rewind List 

24 

TV 

A 

NF25 


25 

TP 

WL4 

[30000] 

Tape # CW —> Rewind List 

26 

RJ 

SY 

SY1 

Get next symbol 

27 

EJ 

LX 13 

NF35 

Sym.= " A.”? 

30 

EJ 

LX14 

NF35 

Syn.= comma? 

31 

EJ 

LX 15 

NF35 

Sym.= semi-colon? 

32 

EJ 

LX16 

ZI16 

Sym.= open parent.? Yes -—y Alarm 

33 

EJ 

LX17 

ZI22 

#38 

Sym.= close parent.? Yes —>Alarm 

34 

MJ 

0 

ZI26 

#39 

No => Alarm #40 

35 

TP 

UZ3 

A 

Error count for sentence 

36 

ZJ 

ZI35 yes 

LG no 

Has there been error? Yes => Warning 


CA 

NF37 


#41 
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Heading Phase (Edit Variable Names) 



IA 

LG 



0 

TP 

LV17 

A 

5 in "v" —> A 

1 

SS 

WL5 

1 

A 

{5 - & var.) x 2 —of A 

2 

AT 

LW21 

LY2 

(A) + add. in Hdg. List —> preset add. 

1st var. in Hdg. List - 4 

3 

ST 

LV42 

LY3 

Address 1st col. Hdg. - 4 —> temp. 

4 

TU 

LW22 

LG22 

Preset add. of 1st var. ind. word 

5 

TP 

WL5 

LY 

Variable count —> index counter (C^) 

6 

TP 

LW23 

LY1 

Preset avail, add. in assem. blk.—>Init. 
add. 

7 

IJ 

LY 

LG21 no 

All variable names edited? 

10 

TP 

SY2 

A 


11 

EJ 

LX13 

LJ 

Sym.= " A .”? Yes —>End list string-out 

12 

RJ 

SY 

SY1 

Get next symbol 

13 

EJ 

LX14 

LG12 yes 

Sym.= comma? 

14 

EJ 

LX 15 

LG 12 yes 

Sym.= semi-colon? 

15 

EJ 

LX16 

LG26 

Sym.= open parent.? Yes —> Title or 
column heading. 

16 

EJ 

LX17 

ZJ 

Sym.= close parent.? Yes —» Alarm 
# 42 

17 

EJ 

LX13 

LJ 

Sym.= " A .**? Yes —> end list string-out 

20 

MJ 

0 

ZJ4 

No ■==> Warning #43 

21 

RA 

LG22 

LV22 

Adv. "u" of NI —> add. next var. ind. 
word 

22 

TP 

[30000] 

LT1 

Var. ind. word —> input edit. var. 
subroutine 

23 

RJ 

LT 

LT2 

Edited variable —> Hdg. List 

24 

RA 

LY1 

LV32 

Adv. avail, assem. blk. add. by 4 —> add. 
next var. 

25 

MJ 

0 

LG7 


26 

RP 

10025 

LH 


27 

TP 

LV12 

LY17 

Zeroize assem. blk. (258 words) 


CA 

LG30 
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Heading Phase (Column Heading Section) 


© 

0 

IA 

TF 

LH 

GN4 

A 


1 

EJ 

LV30 

LI 

© 

2 

TU 

LW22 

LH21 


3 

TP 

LY3 

LY2 

s -V 

4 

RA 

LY13 

LV13 

&2A) 

5 

RJ 

LP 

LP27 


6 

TP 

LV12 

LY 

© 

7 

TP 

GN4 

A 

© 

10 

EJ 

LX20 

LH16 


11 

EJ 

LV30 

LH34 


12 

EJ 

LV 

LH41 

© 

13 

RJ 

LQ 

LQ1 


14 

RJ 

GN 

GN1 


15 

MJ 

0 

LH10 

© 

16 

IJ 

LY 

LH13 no 


17 

TP 

LW23 

LY1 


20 

RA 

LH21 

LV22 


21 

TP 

[30000] 

LT1 


22 

TV 

LY15 

LT1 


23 

RJ 

LT 

LT2 


24 

RJ 

GN 

GN1 

© 

25 

RJ 

SY 

SY1 


26 

EJ 

LX14 

LH25 


27 

EJ 

LX 15 

LH25 


30 

EJ 

LX13 

LJ 


31 

EJ 

LX16 

LH36 


32 

EJ 

LX 17 

ZJ13 


33 

MJ 

0 

ZJ17 


34 

RA 

LY 

LV 


35 

MJ 

0 

LH13 


36 

TP 

GN4 

A 


37 

RP 

10025 

LH5 


40 

TP 

LV12 

LY17 


41 

RJ 

LQ 

LQ1 


42 

RJ 

GN 

GN1 


43 

EJ 

LX21 

ZJ25 


44 

MJ 

0 

LH10 



CA 

LH45 



Get next character —> A 

Char.= open parent.? Yes —> title 

section 

Preset "u” of TP —> Add. 1st var. ind. 
word - 1 

Preset avail, add. in Hdg. List —> add. 
1st col. hdg. - 4 

Set col. hdg. bit in hdg. ind. —> 1 

Adv. & ck. col. hdg. count 

Set level indicator (C^) —> zero 

Char. = close parent. 

Char. - open parent. 

Char. = " A "? 

Store XS3 character for hdg. edit. 

Get next char. —> A 

Close parent, on level zero? 

Preset avail, assem. blk. add. —> initial 
add. 

Adv. "u” of NI —> Add. next var. ind. 
word 

Var. ind. word —» input edit col. hdg. 
routine 

Char, count —>input edit col. hdg. 
routine 

Edit col. hdg. 

Get next char, (throw away close parent.) 

Get next sym. 

Sym.= comma? 

Sym.= semi-colon? 

Sym.= " A ."? —> end list S.O. 

Sym.= open parent.? 

Sym.= close parent.? Yes —> Warning 
#44 

No —> Warning ^45 
Adv. parent, level by 1 

Char. —> A 

Zeroize assem. blk. 

Store XS3 char, for Hdg. Edit 
Get next char. 

Char. = period? Yes ==> Warning #46 
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Heading Phase (Title Section) 




IA 

LI 



0 

TP 

LV12 

LY 

Set level ind. = zero 

1 

RA 

LY13 

LV33 

Set title bit in hdg.indicator —> 1 

2 

TP 

LV23 

LY11 

Preset index (C 2 ) 

3 

TV 

LV20 

LQ10 

Preset char, shift 

4 

TP 

LW4 

LQ11 

Preset initial add. in assem. blk. 

5 

TP 

LV12 

LY15 

Zeroize char, count. 

6 

RJ 

GN 

GN1 

Get next char. 

7 

EJ 

LX20 

LI 16 

Char.= close parent.? 

10 

EJ 

LV30 

LI 14 

Char.= open parent.? 

11 

EJ 

LV 

LI36 

Char.= " A "? 

12 

RJ 

LQ 

LQ22 

Store XS3 character for title edit 

13 

MJ 

0 

LI6 

-* © 

14 

RA 

LY 

LV 

Adv. parent, level by 1 

15 

MJ 

0 

LI 12 


16 

IJ 

LY 

LI 12 

Close parent, on level zero? 

17 

RJ 

GN 

GN1 

Get next char. 

20 

EJ 

LX20 

LI22 

Char.= close parent. 

21 

MJ 

0 

2J32 

No => Alarm #47 

22 

RJ 

LS 

LSI 

Edit and store title for edit 

23 

RJ 

GN 

GN1 

Get next char. (Throw away close 
parent.) 

24 

RJ 

SY 

SY1 

Get next sym. 

25 

EJ 

LX14 

LI24 

Sym.= comma? 

26 

EJ 

LX 15 

LI24 

Sym.= semi-colon? 

27 

EJ 

LX16 

LI33 

Sym.= open parent.? 

30 

EJ 

LX 13 

LJ 

Sym.= " A ."?— > end list S.O. 

31 

EJ 

LX 17 

ZK 

Sym.= close parent.? Yes—» Printout 
#48 

32 

MJ 

0 

ZK4 

No => Printout #49 

33 

TP 

GN4 

A 


34 

RP 

10025 

LH2 

-*>© 

35 

TP 

LV12 

LY17 

Zeroize assem. blk. 

36 

RJ 

LQ 

LQ22 

Store char. ( A ) for title edit 

37 

RJ 

GN 

GN1 

Get next char. 

40 

EJ 

LX21 

ZK13 

Char.= period? Yes Warning #50 

41 

MJ 

0 

LI 7 



CA 

LI42 
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End List String-out 


@) 

0 

IA 

TP 

LJ 

EW3 

LY15 


1 

RA 

LY15 

LV15 


2 

TP 

LY13 

Q 


3 

QJ 

LJ4 yes 

LJ5 no 


4 

QJ 

LJ6 yes 

LJ13 no 


5 

QJ 

LJ16 yes 

LJ27 no 

Title, 

6 

TV 

LY15 

LJ10 

col.hdgs. 

& var. 7 

RP 

30074 

LJ11 

names 

10 

TP 

LZ 

[30000] 


11 

TP 

LV37 

WL6 


12 

MJ 

0 

LJ33 

(5D Col. 13 

TV 

LY15 

LJ15 

hdgs. 

14 

RP 

30050 

LJ25 

& var. 

15 

TP 

LZ24 

[30000] 

names 

Titled 

16 

TV 

LY15 

LJ20 

var. 

names 

17 

RP 

30024 

LJ21 


20 

TP 

LZ 

[30000] 


21 

TV 

LJ20 

LJ24 


22 

RA 

LJ24 

LV42 


23 

RP 

30024 

LJ25 


24 

TP 

LZ50 

[30000] 

© 

25 

TP 

LV41 

WL6 


26 

MJ 

0 

LJ33 

<§) 

27 

TV 

LY15 

LJ31 

Var. 

30 

RP 

30024 

LJ32 

names 

31 

TP 

LZ50 

[30000] 


32 

TP 

LV42 

WL6 


33 

TU 

LY15 

LJ34 


34 

CC 

30000 

LX22 


35 

RS 

LY15 

LW16 


36 

AT 

WL6 

Q 


37 

QT 

LV40 

WL 


40 

RJ 

WT 

WT1 


41 

MJ 

0 

LA 



CA 

LJ42 



Add. of last entry in string-out —> 
temp. 

1 in ’V & "v" adv. —> initial add. for 
headings in string-out. 

Hdg. ind. —> Q 

Are there column hdgs.? 

Is there title? (w/col. hdgs.) 

Is there title? (w/o col. hdgs.) 


Hdg. list (title-col. hdgs.-var. names) 
—*S.O. 

Hdg. count (60^)—>S.O. 


Hdg. List (col. hdg. and var. names) 
—*S.O. 


Title— >S.O. 

Adv. by 20 ^q—>A dd. following title in 
string-out 1 

Var. names—>S.O. 

Hdg. count (40 ^q)—> S.O. 


Hdg. List (var. names)—>S.O. 

Hdg. count (20 k>)— > S.O. 

Preset **u M of NI —> add. of 1st word of 
hdgs. in string-out 

Fast feed 1 sym. —> 1st char, of hdgs. in 
string-out 

No. of words in S.O. w/o hdgs. —>"u*' & 
m v M of A 

No. of words in S.O. including hdgs .—> 

Q 

Word count—» "v" of 1st word of S.O. 
String-out—>tape 
—> String-out Exit 
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Adv. and Ck. 

Var. (Col 


IA 

LP 


0 

MJ 

0 

[30000] 

Fl. Pt. 1 

TU 

LW 

LP17 

Ent. 2 

TU 

LW2 

LQ3 

3 

MJ 

0 

LP6 

Fix Pt. 4 

TU 

LWl 

LP17 

Ent. 5 

TU 

LW3 

LQ3 

@ 6 

SP 

WL5 

0 

Delete 7 

TJ 

LV17 

LP15 yes 

sym. 10 

MJ 

0 

ZK17 V 

before /ll 

RJ 

SY 

SY1 

’’Tape". 112 

EJ 

LX12 

LF 

(56) 13 

EJ 

LX 13 

ZA13 

U4 

MJ 

0 

LP11 

@ 15 

AT 

LV 

WL5 

16 

RA 

LP17 

LV 

Preset 17 

TP 

[30000] 

[30000] 

at be- 20 

SP 

LP17 

17 

gin 21 

TU 

A 

LQ2 

list S.O. 




22 

RA 

LP23 

LV22 

Preset 23 

TP 

[30000] 

LQ11 

at 24 

TV 

LW20 

LQ1 

begin 




list 25 

TU 

LQ11 

ZL2 

S.O. 




26 

MJ 

0 

LP36 

Col. 27 

SP 

LY14 

0 

Hdg. 30 

TJ 

WL5 

LP32 yes 

Ent. 31 

MJ 

0 

ZK26 

32 

AT 

LV 

LY14 

33 

TP 

LW4 

LQ11 

'XA 

TP 

t in 0 

» JL £. 

rvK 

*-• J- X 

35 

TV 

LW11 

LQ1 

@ 36 

TP 

LV23 

LY11 

37 

TV 

LV20 

LQ10 

40 

MJ 

0 

LP 


CA 

LP41 





Call 

Word —> Var 


IA 

LO 


0 

MJ 

0 

[30000] 

1 

TP 

Q 

EW2 

2 

RJ 

EW 

EW1 

3 

MJ 

0 

LO 


CA 

L04 



Hdg.) Count Subroutine 


Set up inst. for fl. pt. ind. 
Preset add. of fl. pt. char, limit 


Preset add. of fix pt. char, limit 
Var. count —> A 
5 > # variables? 

No ==> Printout #51 
Get next sym. 

Sym. = tape?—»tape designation phase 
Sym. = " A ."? Yes => Alarm #3 

Adv. var. count —> list string-out 

Fix or fl. pt. ind.—> var. ind. word 

Preset add. of char, count (var. ind. 
word) 

Adv. NX to preset next add. in assem. blk. 
Preset add. in assem. blk. 

Preset ent. —> store XS3 char, for var. 
name 

Add in assem. blk .—> trans. inst. for 
warning print 

Col. hdg. count—>A 
# Variables > # col. hdgs.? 
No=>Warning #52 
Adv. col. hdg. count by 1 
Preset add. in assem. blk. 

7at*ai rrn P All M + 

ZJUJL UX UUQ1 • U V ua 1/ 

Preset ent. —> store XS3 char, for 
column hdg. 

Preset index (C 2 ) 

Preset char, shift 
Exit 


List String-out 


Call word —» M v” of EW2 
Call word—> string-out 
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Store XS3 Char. 



IA 

LQ 


@ 0 

MJ 

0 

[30000] 

Preset 1 

MJ 

0 

[30000] 

in nr 

TP 

[30000] 

A 

var. [3 

TJ 

[30000] 

LQ5 

count 4 

MJ 

0 

ZL 

rtn. ^ 5 

TU 

LQ2 

LQ6 

Var. I 6 
Ent. / 

Preset r 
in var.l 
count ] 

RA 

[30000] 

LV 

m 7 

RS 

LQ10 

LV2 

rreset 

in 

Var. 

count 

rtn. 

SP 

Q 

[30000] 

Preset 11 
in 

var. 

count 

rtn. 

AT 

[30000] 

[30000] 

@ 12 

IJ 

LYll 

LQ 

13 

RA 

LQ11 

LV15 

14 

TV 

LV16 

LQ10 

15 

TP 

LV17 

LYll 

16 

MJ 

0 

LQ 

Col. —> 17 

TP 

LY15 

A 

Hdg. 20 

TJ 

LV14 

LQ25 yes 

Ent. 21 

MJ 

0 

ZL10 

Title —>22 
Ent. 

[TP 

LY15 

A] 

23 

TJ 

LV34 

LQ25 yes 

24 

MJ 

0 

ZL20 

© 25 

RA 

LY15 

LV 

26 

TP 

GN4 

Q 

27 

MJ 

CA 

0 

LQ30 

LQ7 


for Hdg. Edit 

Input: XS3 char, in ’V* of A 

M v" preset -> LQ2 or LQ17 
Char, count —> A 
23 n (27 ft ) > » char.? 

No 1 =£> Warning #53 

Preset "u* of NI—»char. count add. 
Adv. char, count by 1 in ’V* 


Decrease shift count 
Position char, in A 


Char .—> current word in assem. blk. 


Current word full? (index preset by 
var. count routine) 

Adv. current assem. blk. address 
Reset shift count 
Reset index 

Char, count—>A 

23 n (27 fl ) > * char.? 

No 1 =£► Warning *54 

Title char, count —>A (reset —> MJ-0- 
LQ after printout; not preset, trans¬ 
ferred from drum before operating) 

119, n (1678) > # char.? 

No =^>Warning #55 

Adv. title (col. hdg.) char, count by 
1 in "v M 


584 



Store X53 Sym. for Heading Edit 



IA 

LR 


Input: XS3 sym. in SY2 char, in 

0 

MJ 

0 

[30000] 

1 

TP 

SY5 

LY12 

# Char in sym.—> index ctr. (C^) 

2 

TP 

SY2 

LY3 

XS3 sym. —> temp. 

3 

IJ 

LY12 

LR5 

All char, trans. —> Assem. blk. 

4 

MJ 

0 

LR 


5 

LQ 

T TfO 

L.IO 

6 

Next XS3 char, in sym. — > !! v” of i 

6 

QT 

LV52 

Q 

XS3 char. — > n v" of Q 

7 

RJ 

LQ 

LQl 

Store XS3 char, for Hdg. Edit 

10 

MJ 

0 

LR3 



CA 

LR11 
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Edit Title Subroutine 




IA 

LS 



0 

0 

MJ 

0 

[30000] 



1 

TV 

LW14 

LS31 

Preset hdg. list add. —> middle add. of 
title 


2 

SP 

LY15 

0 

Char, count —> A 


3 

DV 

LV31 

Q 

*char.; # full words in 1/2 title —> 0 






12 


4 

ZJ 

LS5 yes 

LS6 no 

Is there partial word? 


5 

HA 

Q 

LV 

Adv. Q by 1 -—►total # words in 1/2 
title —> Qv 


6 

RS 

LS31 

Q 

Decrease hdg. list add. —> add. initial 
title word in hdg. list 

© 

7 

SP 

Q 

1 

(# words in 1/2 title) * 2 = total # words 
in title —> A 


10 

ST 

LV 

LY11 

# Words in title - 1—» index ctr. (C«) 


11 

SP 

LY15 

0 

# Char. —> A 1 


12 

EJ 

LV34 

LS44 

# Char.= 119 n 

# Char. + 3 -»A 

@ 

13 

SA 

LV26 

0 


14 

DV 

LV1 

A 

#char.+ 3 —> A 

o 


15 

DV 

LV2 

Q 

# Char, to shift —» A 


16 

ZJ 

LS17 no 

LS37 yes 

# Char, to shift = zero? No '=> shift 1 
char. 

@ 

17 

TJ 

LV1 

LS23 

2 > # char, to shift? 


20 

TU 

LW23 

LS27 

Preset "SP”— » add. of 1st word in assem. 
blk. 


21 

TU 

LW4 

LS30 

Preset "SA" —>add. of 2nd word in assem. 
blk. 


22 

MJ 

0 

LS25 



23 

TU 

LW4 

LS27 

Preset "SP"—> add. of 2nd word in assem. 
blk. 


24 

TU 

LW26 

LS30 

Preset "SA" —> add. of 3rd word in assem. 
blk. 


25 

MP 

A 

LV2 

(# char, to shift) x 6 = shift count 


26 

TV 

A 

LS30 

Preset shift count in "SA" 

© 

27 

SP 

[30000] 

44 

Current title word from assem. blk.— > A 


30 

SA 

[30000] 

[30000] 

Position edited title word in Al 


31 

LT 

0 

£0000] 

Edited title word— > hdg. list add. 


32 

RA 

L327 

LV22 

Adv. "u” of "SP" by 1 


33 

RA 

LS30 

LV22 

Adv. "u" of "SA" by 1 


34 

RA 

LS31 

LV 

Adv. "v" of "LT" by 1 


35 

IJ 

LY11 

LS27 no 

All of edited title —> hdg. list? 


36 

MJ 

0 

LS 



37 

SP 

0 

20 

* words edited title—>*u" of A 


40 

AT 

LW15 

LS42 

Add. "w" to dummy repeat 


41 

TV 

LS31 

LS43 

Preset add. of initial title word in hdq. 
list 


42 

[RP 

30000 

LS] 



43 

TP 

LY20 

[30000] 

Trans, edited title —> hdg. list 
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44 

RP 

30024 

LJ 


45 

TP 

LY20 

LZ 

Trans. 119^ char, title—>hdg. list 


CA 

LS46 
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Edit Variable (Col. Hdg.) Subroutine 



© 

© 

© 

© 

© 


0 

1.4 

MJ 

LT 

0 

[30000] 

Exit 

1 

[0 

30000 

30000] 

Input 

2 

RA 

LY2 

LV23 


Adv. avail, add. hdg. list by 4 in ”u” 

3 

TV 

A 

LU15 


- > add. next var. in hdg. list 

Preset "v" of trans. inst.—>• add. next 

4 

TU 

LY1 

LU13 


var. in hdg. list. 

Preset "SP" inst.—>add. next var. - 1 

5 

TU 

LY1 

LU14 


in assem. blk. 

Preset M SA M inst.—>-add. next var. - 1 

6 

RA 

LU14 

LV22 


in assem. blk. 

Adv. "u" of "SA” by 1 —> add. next var. 

7 

TP 

LT1 

Q 


- in assem. blk. 

Var. ind. word —> Q 

10 

QT 

LV40 

LTl 


£ Char. —> A & input line 

11 

EJ 

LV25 

LU23 

yes 

# Char.= 23 10 V (27 8 )? 

12 

QJ 

LT24 no 

LT13 

yes 

Variable floating pt. quan? 

13 

TJ 

LV27 

LT16 

yes 

13^0 ^ # char.? 

14 

TP 

LV26 

LY11 


Index = 3 to trans. 4 words —> hdg. list 

15 

MJ 

0 

LT20 


—*© 

16 

TP 

LV 

LY11 


Index = 1 to trans. 2 words —> hdg. list 

17 

RA 

LU15 

LV 


Adv. "v" trans. inst. by 1 —> next add. 

20 

TP 

LT1 

A 


hdg. list 
£ Char. —> A 

21 

SA 

LV26 

0 


£ Char. + 3 —> A 

22 

DV 

LV1 

A 


£ Char. 1- 3; Quot —> A 

23 

MJ 

0 

LU2 


2 

— 

24 

TJ 

LV31 

LT33 

yes 

12 lf) > £ char-? 

19,q > £ char.? 

Index = 3 to trans. 4 words —> hdq. list 

25 

TJ 

LV53 

LT30 

yes 

26 

TP 

LV26 

LY11 


27 

MJ 

0 

LT35 


—>© 

30 

TP 

LV1 

LY11 


Index = 2 to trans. 3 words —» hdg. list 

31 

RA 

LU15 

LV 


Adv. "v" trans. inst. by 1 —> next add. 

32 

MJ 

0 

LT35 


hdg. list 

4 © 

33 

TP 

LV 

LY11 


Index = 1 to trans. 2 words —> hdg. list 

34 

RA 

LU15 

LV1 


Adv. "v" of trans. inst. by 2 —> add. in 

35 

TP 

LT1 

A 


hdg. list. 

# Char. —> A v 

36 

TJ 

LV30 

LU yes 

15 10 > char.? 

37 

SA 

LV 

0 


£ Char. + 1 —» A 

40 

MJ 

CA 

0 

LT41 

LU2 
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Edit Var. (Col. Hdg.) Subroutine (cont.) 


© 

© 

© 



0 

IA 

DV 

LU 

LVl 

A 

Jfchar/2; Quot —> A 

1 

LVl 

LVl 

0 

Quot + 2 —>A 

2 

DV 

LV2 

Q 

(A)/6 =>Rem. = # char, to shift —> A 

3 

ZJ 

LU4 no 

LU23 yes 

Char, to shift = zero? 

4 

MP 

A 

LV2 

# Char, to shift x 6 = shift count —> A 

5 

TV 

A 

LU14 

Preset shift count in "v" of SA inst. 

6 

TJ 

LV24 

LU11 yes 

7 > shift count? (i.e. t # char, to 

7 

TP 

LV12 

A 

shift = 1 ) 

Zero —> A 

10 

MJ 

0 

LU14 


11 

RA 

LU13 

LV22 

Adv. ”u" of SP by 1 —> add. of 1st var. 

12 

RA 

LU14 

LV22 

word 

Adv. "u" of SA by 1 —> add. of 2nd var. 

13 

SP 

[30000] 

44 

word 

Variable word from assem. blk. —> Al 

14 

SA 

[30000] 

[3000Q] 

Add. next word to A^ & shift to position 
in A l k 

Edited word from assembly block —> 

15 

LT 

0 

[30000] 

16 

RA 

LU13 

LV22 

heading list 

Adv. "u" of SP by 1 

17 

RA 

LU14 

LV22 

Adv. ”u" of SA by 1 

20 

RA 

LU15 

LV 

Adv M v M of trans. inst. by 1 —> next add. 

21 

IJ 

LY11 

L013 

in hdg. list 

All words trans. from assem. blk .—> hdg. 

22 

MJ 

0 

LT 

list 

23 

TU 

LU14 

LU26 

Add. 1st word of var. in assem. blk.—> 

OA 

Ttr 

-L V 

T TTl £ 

1—«U J-«J 

r TTO/L 

1_iU£*U 

”u" of TP 

Add. for variable in hdg. list—> ”v” of 

25 

RP 

30004 

LT 

TP 

26 

TP 

[30000] 

[30000] 

Trans, words from assem. blk .—> hdg. lis 


CA 

LU27 


w/o editing. 
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Fixed Constants 


0 

IA 

0 

LV 

0 

1 

XS3 space cha: 

1 

0 

0 

2 


2 

0 

0 

6 


3 

0 

0 

11 


4 

0 

0 

12 


5 

0 

0 

77000 


6 

0 

0 

66000 


7 

0 

0 

65000 


10 

0 

0 

64000 


11 

0 

3 

3 


12 

0 

0 

0 

FI. pt. ind. 

13 

40 

0 

0 

Fix pt. ind. 

14 

0 

0 

27 

FI. pt. char. 

15 

0 

1 

1 

16 

0 

0 

44 


17 

0 

0 

5 


20 

0 

0 

36 


21 

40 

0 

27 


22 

0 

1 

0 


23 

0 

0 

4 


24 

0 

0 

7 


25 

0 

0 

27 


26 

0 

0 

3 


27 

0 

0 

15 


30 

0 

0 

17 

XS3 open pare: 

31 

0 

0 

14 


32 

0 

4 

4 


33 

20 

0 

0 


34 

0 

0 

167 


35 

0 

0 

170 


36 

0 

24 

24 


37 

0 

0 

74 


40 

0 

0 

77777 


41 

0 

0 

50 


42 

0 

0 

24 


43 

0 

0 

50000 


44 

0 

55000 

0 


45 

0 

550 

0 


46 

0 

55740 

0 


47 

0 

557 

40000 


50 

17 

0 

0 


51 

0 

0 

40000 


52 

0 

0 

77 


53 

0 

0 

23 



CA 

LV54 
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Relative Constants 


0 

IA 

0 

LW 

LV12 

0 

Add. fl. pt. ind. 

1 

0 

LV13 

0 

Add. fix. pt. ind. 

2 

0 

LV14 

0 

Add. fl. pt. character limit 

3 

0 

LV21 

0 

Add. fix pt. character limit 

4 

AT 

LY20 

LY20T 

5 

AT 

LY24 

LY24 

To preset add. in assembly block for 

6 

AT 

LY30 

LY30 

* XS3 sym. or character store routine 

7 

AT 

LY34 

LY34 


10 

AT 

LY40 

LY40, 


11 

0 

0 

LQ17 


12 

0 

LW3 

LY3 

To preset inst, to present add. in 

13 

0 

WL6 

WL6 

assembly block. To preset add. of first 
var. ind. word - 1 

To preset EW3 —> Add. of 1st CW in 

14 

0 


LZ12 

S.O. - 1 

Middle add. of title in hdg. list. 

15 

RP 

30000 

LS 

16 

0 

WL 

WL 

Initial add. in S.O. list 

17 

0 

0 

LQ 


20 

0 

0 

LQ2 


21 

0 

0 

LZ44 

To preset add. in hdg. list. 

22 

0 

LY3 

0 

To preset add. of var. ind. word 

23 

0 

LY17 

LY17 

Initial address in assem. block 

24 

0 

WP20000 

WP 

WP = max. no. of tape GW's in Rewind List 

25 

0 

0 

WR 

Initial add. in Rewind List 

26 

0 

LY21 

SY1 



CA 

LW27 
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XS3 Codes 


0 

IA 

04 

LX 

77777 

77777 

1 ' 


1 

05 

77777 

77777 

2 


2 

06 

77777 

77777 

3 


3 

07 

77777 

77777 

4 


4 

10 

77777 

77777 

5 

► Servo numbers 

5 

11 

77777 

77777 

6 


6 

12 

77777 

77777 

7 


7 

13 

77777 

77777 

8 


10 

14 

77777 

77777 

9 


11 

04 

03777 

77777 

10 , 


12 

66 

24523 

07777 

TAP 

E 

13 

01 

22777 

77777 

A 


14 

21 

77777 

77777 

Comma symbol 

15 

23 

77777 

77777 

Semi-eolon symbol 

16 

17 

77777 

77777 

Open parent, symbol "(" 

17 

43 

77777 

77777 

Close parent, symbol ")" 

20 

00 

00000 

00043 

Close parent, char. 

21 

00 

00000 

00022 

Period char. 

22 

37 

00000 

00000 

Fast feed 1 sym. (packed to left w/zero 

23 

00 

00000 

00021 

fill) 

Comma character. 

24 

00 

00000 

00023 

Semi-colon character 


CA 

LX25 
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IA 

ZA 



Alarm 

0 

RJ 

WA 

WAl 


#1 

1 

Tp 

PB 

UP3 



2 

RJ 

UP2 

UP 



3 

MJ 

0 

LA 

—> Exit 

Alarm 

4 

RJ 

WA 

WAl 


#2 

5 

TP 

SY2 

PB22 



6 

TP 

SY3 

PB23 



7 

TP 

SY4 

PB24 



10 

TP 

PB17 

UP 3 



11 

RJ 

UP2 

UP 



12 

MJ 

0 

LB 2 2 

—> Exit 

Alarm 

13 

RJ 

WA 

WAl 


#3 

14 

TP 

PC 

UP 3 



15 

RJ 

UP2 

UP 



16 

MJ 

0 

LA 

—> Exit 

Alarm 

17 

RJ 

WA 

WAl 


#4 

20 

TP 

PC17 

UP 3 



21 

RJ 

UP2 

UP 



22 

RA 

LY44 

LV 

Adv. Parenthesis Level 


23 

MJ 

0 

LB22 

—> Var. Phase 

Alarm 

24 

RJ 

WA 

WAl 


*5 

25 

TP 

PD 

UP3 



26 

RJ 

UP2 

UP 



27 

MJ 

0 

LB22 

—> Var. Phase 

Alarm 

30 

RJ 

WA 

WAl 


#6 

31 

TP 

SY2 

PD 22 



32 

TP 

SY3 

PD23 



33 

TP 

SY4 

PD24 



34 

TP 

PD17 

UP3 



35 

RJ 

UP 2 

UP 



36 

MJ 

0 

LB22 

—> Var. Phase 

Alarm 

37 

RJ 

WA 

WAl 


#7 

40 

TP 

PE 

UP3 



A 1 
*■1 X 

RJ 

UP2 

UP 



42 

MJ 

0 

LF 

—> Tape Designation Phase 



CA 

ZA43 
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IA 

ZB 


Alarm 

0 

RJ 

WA 

WAl 

#8 

1 

TP 

SY2 

PG6 


2 

TP 

PG 

UP3 


3 

RJ 

UP2 

UP 


4 

MJ 

0 

LB22 

Alarm 

5 

RJ 

WA 

WAl 

#9 

6 

TP 

SY2 

PG23 


7 

TP 

PG16 

UP 3 


10 

RJ 

UP2 

UP 


11 

MJ 

0 

LB22 

Alarm 

12 

RJ 

WA 

WAl 

#10 

13 

TP 

SZ2 

PH 7 ' 


14 

TP 

SZ3 

PH10 


15 

TP 

SZ4 

PHll 


16 

TP 

PH 

UP 3 


17 

RJ 

UP2 

UP 


20 

MJ 

0 

ZB25 

Alarm 

21 

RJ 

WA 

WAl 

#11 

22 

TP 

LY16 

PH20 


23 

TP 

PH13 

UP 3 


24 

RJ 

UP2 

UP 


25 

TP 

SY2 

A 


26 

MJ 

0 

LB23 

Alarm 

27 

RJ 

WA 

WAl 

#12 

30 

TP 

LY16 

Pill 


31 

TP 

PI 

UP3 


32 

RJ 

UP2 

UP 


33 

MJ 

0 

LA 


34 

CA 

ZB34 



Print hdg. & set error bit 
Pseudo op. sym .—> printout 

Printout #8 

Print hdg. & set error bit 
Library rtn. sym. —» printout 

Printout #9 

Print hdg. & set error bit 
Symbol —> Printout 

Printout #10 

Print hdg. & set error bit 
Subs. var. symbol —> printout 

Printout #11 

Print hdg. & set error bit 
Subs. var. sym. —> printout 

—> Exit 
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IA 

ZC 



Alarm 

0 

RJ 

WA 

WA1 

Print hdg. and set error bit 

#13 

1 

TP 

LY16 

PI31 

Subs. Var. sym.—> printout 


2 

TP 

PI21 

UP3 



3 

RJ 

UP2 

UP 

Printout #13 


4 

RA 

LY46 

LV 

Adv. subs, parent, level by 1 


5 

MJ 

0 

LD12 


Alarm 

6 

RJ 

WA 

WA1 

Print hdg. & set error bit 

#14 

7 

TP 

SY2 

PJ3 

Illegal sym .—> printout 


1 A 

XV/ 

TP 

T V 1 C. 

L.1 J-U 

qt i o 

r<J LC 

Subs. var. sym. —> printout 


11 

TP 

PJ 

UP 3 



12 

RJ 

UP 2 

UP 

Printout #14 


13 

MJ 

0 

LD12 


Alarm 

14 

RJ 

WA 

WA1 

Print hdg. & set error bit 

#15 

15 

TP 

LY16 

PJ24 

Subs. var. sym. —> printout 


16 

TP 

PJ 14 

UP3 



17 

RJ 

UP2 

UP 

Printout #15 


20 

MJ 

0 

LF 


Alarm 

21 

RJ 

WA 

WA1 

Print hdg. and set error bit 

#16 

22 

TP 

SY2 

PK15 



23 

TP 

SY3 

PK16 

► Symbol —> Printout 


24 

TP 

SY4 

PK17 



25 

TP 

LY16 

PK4 



26 

TP 

PK 

UP3 



27 

RJ 

UP2 

UP 



30 

MJ 

0 

LD12 




CA 

ZC31 





IA 

ZD 



Alarm 

0 

RJ 

WA 

WAl 

Print hdg. & set error bit 

#17 

1 

TP 

SY2 

PK25 

Function symbol —> printout 


2 

TP 

LY16 

PK32 

Sub. var. sym. —> printout 

' 

3 

RJ 

SY 

SY1 

Get next symbol 


4 

EJ 

LX16 

ZD11 

yes Sym. = open parenthesis? (i.e. t are there 






arguments w/function) 


5 

TP 

PK21 

UP 3 

Parameter for #17 —> Uniprint 


6 

RJ 

UP 2 

UP 

Printout #17 


7 

TP 

SY2 

A 

Current sym. — > A 


10 

MJ 

0 

LD13 

—> Subs. var. section 


11 

TP 

PK22 

UP3 

Parameter for #17A — > Uniprint 


12 

RJ 

UP2 

UP 

Printout #17A 


13 

RJ 

UE21 

LE6 

Delete arguments of function 


14 

MJ 

0 

LD12 

— » Subs. var. section 



CA 

ZD 15 
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IA 

ZE 



Alarm 

0 

RJ 

WA 

WA1 


#18 

1 

TP 

SY2 

PL6 



2 

TP 

LY16 

PL 14 



3 

RJ 

SY 

SY1 



4 

EJ 

LX16 

ZE11 

yes 


5 

TP 

PL 

UP3 



6 

RJ 

UP 2 

UP 



7 

TP 

SY2 

A 



10 

MJ 

0 

LD13 



It 

TP 

PL1 

UP3 



12 

RJ 

UP 2 

UP 



13 

TP 

LV12 

LY47 



14 

TP 

SZ2 

LY50 


© 

15 

RJ 

SY 

SY1 



16 

EJ 

LX 17 

ZE23 

yes 


17 

EJ 

LX16 

ZE25 



20 

EJ 

LX12 

ZE27 

yes 


21 

EJ 

LX13 

ZE34 

yes 


22 

MJ 

0 

ZE15 



23 

IJ 

LY47 

ZE15 

no 


24 

MJ 

0 

LD12 



25 

RA 

LY47 

LV 



26 

MJ 

0 

ZE15 



27 

RJ 

WA 

WA1 



30 

TP 

LY50 

PJ24 



31 

TP 

PJ14 

UP 3 



32 

RJ 

UP2 

UP 



33 

MJ 

0 

LF 



34 

RJ 

WA 

WA1 



35 

TP 

LY50 

Pill 



36 

TP 

PI 

UP 3 



37 

RJ 

UP 2 

UP 



40 

MJ 

0 

LA 




CA 

ZE41 




Print hdg. & set error bit 
Latest subs. var.—> printout 
Prior subs. var. —=► printout 
Get next symbol 
Symbol = open parenthesis 
Parameter for #18 —> printout 
Printout #18 
Current sym. —> A 
—> Subs. var. section 
Parameter for #18A —> Printout 
Printout #18A 

Set parenthesis level = zero 
Latest subs. var. sym.—>temp. 

Get next symbol 

Sym. = close parenthesis? 

Sym. = open parenthesis? 

Sym. = "tape”? yes => printout #15 
Sym. = space-period ( A . )? yes —> 
printout #12 

Close parent, for subscripts? (level 
zero) 

Adv. parent, level by 1 


Printout #15 

—> Tape designation phase 

Printout #12 
—> Exit 
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IA 

ZF 


Alarm 

0 

RJ 

WA 

WAi 

#19 

1 

TP 

SY2 

PM 5 


2 

TP 

LY16 

PM 13 


3 

TP 

PM 

UP3 


4 

RJ 

UP2 

UP 


5 

MJ 

0 

LD12 

Alarm 

6 

RJ 

WA 

WAI 

#20 

7 

TP 

SY2 

PM23 

in 

XV/ 

TD 

± L 

LY16 

PM31 


11 

TP 

PM 15 

UP 3 


12 

RJ 

UP2 

UP 


13 

MJ 

0 

LD12 

Alarm 

14 

RJ 

WA 

WAI 

#21 

15 

TP 

SY2 

PN14 


16 

TP 

SY3 

PN15 


17 

TP 

SY4 

PN16 


20 

TP 

LY16 

PN4 


21 

TP 

PN 

UP3 


22 

RJ 

UP2 

UP 


23 

MJ 

0 

LD12 

Alarm 

24 

RJ 

WA 

WAI 

#22 

25 

TP 

SZ2 

P013 


26 

TP 

SZ3 

P014 


27 

TP 

SZ4 

P015 


30 

TP 

LY16 

P07 


31 

TP 

PO 

UP3 


32 

RJ 

UP2 

UP 


33 

TP 

SY2 

A 


34 

MJ 

0 

LD13 



CA 

ZF35 



Print hdg. & set error bit 
Lib. rtn. sym. —> printout 

Printout #19 

Print hdg. & set error bit 

Printout #20 

Print hdg. & set error bit 

Print hdg. & set error bit 
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IA 

ZG 


Alarm 

0 

RJ 

WA 

WA1 

#23 

1 

TP 

LY16 

P027 


2 

TP 

P017 

UP3 


3 

RJ 

UP2 

UP 


4 

MJ 

0 

LB22 

Ala rm 

5 

RJ 

WA 

WA1 

#24 

6 

TP 

LY16 

PP15 


7 

TP 

PP 

UP3 


10 

RJ 

UP2 

UP 


11 

MJ 

0 

LA 

Ala rm 

12 

RJ 

WA 

WA1 

#25 

13 

TP 

LY16 

PP36 


14 

TP 

PP23 

UP 3 


15 

MJ 

0 

ZB24 

Alarm 

16 

RJ 

WA 

WA2 

#26 

17 

TP 

SZ2 

PQ5 


20 

TP 

PQ 

UP3 


21 

RJ 

UP2 

UP 


22 

RJ 

LE11 

LE7 


23 

RJ 

LR 

LR1 , 


24 

RJ 

LE21 

SY1 


25 

RJ 

LR 

LR1 „ 


26 

MJ 

0 

LB22 

Alarm 

27 

RJ 

WA 

WA1 

#27 

30 

TP 

LY50 

PQ27 


31 

TP 

PQ15 

UP 3 


32 

MJ 

0 

LB22 

Alarm 

33 

RJ 

WA 

WA1 

#28 

34 

TP 

LY50 

PR 12 


35 

TP 

PR 

UP 3 


36 

RJ 

UP2 

UP 


37 

MJ 

0 

LA 



CA 

ZG40 



■» Var. phase 


■> Exit 


Save arguments of function 


Exit 
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IA 

ZH 



A la rm 

0 

RJ 

WA 

WA1 


#29 

1 

TP 

PR21 

UP3 



2 

RJ 

UP2 

UP 



3 

MJ 

0 

LA 

—> Exit 

Alarm 

4 

RJ 

WA 

WA1 


#30 

5 

TP 

PT 

UP3 



6 

RJ 

UP2 

UP 



7 

MJ 

0 

LA 

—> Exit 

Alarm 

10 

RJ 

WA 

WA1 


*31 

11 

TP 

PT21 

UP3 



12 

RJ 

UP2 

UP 



13 

MJ 

0 

LA 

—> Exit 

Alarm 

14 

RJ 

WA 

WA1 


*32 

15 

TP 

PU 

UP3 



16 

RJ 

UP2 

UP 



17 

MJ 

0 

LA 

—> Exit 

Alarm 

20 

RJ 

WA 

WA1 


#33 

21 

TP 

SY2 

PU30 



22 

TP 

PU21 

UP3 



23 

RJ 

UP2 

UP 



24 

MJ 

0 

LA 

—> Exit 

Alarm 

25 

RJ 

WA 

WA1 


#34 

26 

TP 

SY2 

PV12 



27 

TP 

PV 

UP3 



30 

RJ 

UP2 

UP 



31 

MJ 

0 

LA 

—> Exit 

Alarm 

32 

RJ 

WA 

WA1 


#35 

33 

TP 

SY2 

PV36 



34 

TP 

PV24 

UP3 



35 

RJ 

UP2 

UP 



36 

MJ 

0 

LA 

—» Exit 


37 

CA 

ZH37 
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Exit 




IA 

ZI 


Alarm 

0 

RJ 

WA 

WA1 

#36 

1 

TP 

SY2 

PW16 

2 

TP 

SY3 

PW17 


3 

TP 

SY4 

PW20 


4 

TP 

PW 

UPS 


5 

RJ 

UP2 

UP 


6 

MJ 

0 

LA 

Alarm 

7 

RJ 

WA 

WA1 

#37 

10 

TP 

SY2 

PX15 


11 

TP 

SY3 

PX16 


12 

TP 

SY4 

PX17 


13 

TP 

PX 

UP 3 


14 

RJ 

UP2 

UP 


15 

MJ 

0 

LA 

Ala rm 

16 

RJ 

WA 

WA1 

#38 

17 

TP 

PY 

UP3 


20 

RJ 

UP2 

UP 


21 

MJ 

0 

LA 

Alarm 

22 

RJ 

WA 

WA1 

#39 

23 

TP 

PY24 

UP3 


24 

RJ 

UP 2 

UP 


25 

MJ 

0 

LA 

Alarm 

26 

RJ 

WA 

WA1 

#40 

27 

TP 

SY2 

PZ14 


30 

TP 

SY3 

PZ15 


31 

TP 

SY4 

PZ16 


32 

TP 

PZ 

UP3 


33 

RJ 

UP 2 

UP 


34 

MJ 

0 

LA 

Alarm 

35 

RJ 

WA 

WA2 

#41 

36 

TP 

SA 

UP3 


37 

RJ 

UP 2 

UP 


40 

MJ 

0 

LA 



CA 

ZI41 




—> Exit 


—> Exit 


—> Exit 


—>• Exit 
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IA 

ZJ 


Warn¬ 

0 

RJ 

WA 

WA2 

ing 

1 

TP 

SA16 

UPS 

#42 

2 

RJ 

UP 2 

UP 


3 

MJ 

0 

U 

Warn¬ 

4 

RJ 

WA 

WA2 

ing 

5 

TP 

SY2 

SB26 

#43 

6 

TP 

SY3 

SB27 • 


7 

TP 

SY4 

SB30 . 


10 

TP 

SB 

UP3 


1 1 

J. J. 

D1 

1HJ 

T7DO 

Ul 4. 

F7D 

Ul. 


12 

MJ 

0 

U 

Warn¬ 

13 

RJ 

WA 

WA2 

ing 

14 

TP 

SC 

UP 3 

#44 

15 

RJ 

UP2 

UP 


16 

MJ 

0 

LJ 

Warn¬ 

17 

RJ 

WA 

WA2 

ing 

20 

TP 

SY2 

SD26 ' 

#45 

21 

TP 

SY3 

SD27 ► 


22 

TP 

SY4 

SD30 - 


23 

TP 

SD 

UP3 


24 

MJ 

0 

ZJ 15 

Warn¬ 

25 

RJ 

WA 

WA2 

ing 

26 

TP 

SE 

UP3 

#46 

27 

RJ 

UP 2 

UP 


30 

TP 

LX 13 

SY2 


31 

MJ 

0 

U 

Warn¬ 

32 

RJ 

WA 

WA2 

ing 

33 

TP 

SE16 

UP 3 

#47 

34 

RJ 

UP2 

UP 


35 

MJ 

0 

LJ 



CA 

ZJ36 



Print hdg. ; do not set error bit 

—> End list string-out 
Print hdg.; do not set error bit 

Symbol —> printout 

-» End list string-out 

—> End list string-out 
Symbol —> printout 


—> End list string-out 
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IA 

ZK 


Warn¬ 

0 

RJ 

WA 

WA2 

ing 

1 

TP 

SF 

UPS 

#48 

2 

RJ 

UP2 

UP 


3 

MJ 

0 

U 

Warn¬ 

4 

RJ 

WA 

WA2 

ing 

5 

TP 

SY2 

SF47 

#49 

6 

TP 

SY3 

SF50 


7 

TP 

SY4 

SF51 


10 

TP 

SF22 

UP 3 


11 

RJ 

UP2 

UP 


12 

MJ 

0 

LI 

Warn¬ 

13 

RJ 

WA 

WA2 

ing 

14 

TP 

SG 

UP3 

#50 

15 

RJ 

UP2 

UP 


16 

MJ 

0 

U 

Alarm 

17 

RJ 

WA 

WA1 

#51 

20 

TP 

SY2 

SG31 


21 

TP 

SY3 

SG32 


22 

TP 

SY4 

SG33 


23 

TP 

SG15 

UP3 


24 

RJ 

UP 2 

UP 


25 

MJ 

0 

LP 11 

Warn¬ 

26 

RJ 

WA 

WA2 

ing 

27 

TP 

SH 

UP3 

#52 

30 

RJ 

UP2 

UP 


31 

MJ 

0 

LJ 



CA 

ZK32 



■> End list string-out 


- > End list string-out 

Print hdg.; do not set error bit 


Print hdg.; set error bit 


-> Var. count subroutine 

Print hdg. ; do not set error bit 

- > End list string-out 


602 





IA 

ZL 



Warn— 

A 

\J 

RJ 

WA 

WA2 


inc^53 

1 

RP 

30004 

ZL3 ] 


Preset 

, 2 

TP 

[30000] 

SH32 

h Truncated var. name (23 char .)—> 

in var. 



- 

! printout 

count 

3 

RA 

SH32 

LV50 

Put open parent, preceding var. name in 

rtn. 

4 

TP 

SH14 

UP3 

printout 


5 

RJ 

UP 2 

UP 



A 

TV 

LW17 

T 01 

Reset ent. —> LQ 


7 

MJ 

0 

LQ 


Warn¬ 

10 

RJ 

WA 

WA2 


ing 

11 

RP 

30004 

ZL13 1 


#54 

12 

TP 

LY20 

SI 16 

’ Truncated column heading (23 char.)—> 





j 

printout 


13 

RA 

SI 16 

LV50 

Put open parent, preceding col. hdg. in 
printout 


14 

TP 

SI 

UP3 



15 

RJ 

UP2 

UP 



16 

TV 

LW17 

LQ1 

Reset ent. —> LQ 


17 

MJ 

0 

LQ 


Warn¬ 

20 

RJ 

WA 

WA2 


ing 

21 

RP 

30024 

ZL23 1 

! 

i 

#55 

22 

TP 

LY20 

SK15 J 

Truncated title (20 words) —> Printout 


23 

RA 

SK15 

LV50 

Put open parent, preceding title in 
printout 


24 

TP 

SK 

UP3 



25 

RJ 

UP 2 

UP 



26 

TP 

ZL27 

LQ22 

Reset to by-pass printout for remaining 
char, of title 


27 

MJ 

0 

LQ 

NB —> this instruction used to reset 
by preceding instruction 



CA 

ZL30 





IA 

ZM 



Alarm 

0 

RJ 

WA 

WA 1 


#56 

1 

TP 

SL 

UP3 



2 

RJ 

UP 2 

UP 



3 

MJ 

0 

LA 

—>Exit 

Alarm 

4 

RJ 

WA 

WA 1 


#57 

5 

CC 

WR 

LV13 



6 

TP 

SL21 

UP3 



7 

RJ 

UP2 

UP 



10 

MJ 

0 

NF26 




CA 

ZM11 
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List String-out Alarm Texts (Alarm Heading 27-^) 


IA 

40 

PB 

PBl 

16 






Printout 

*1 

71 

51542 

72101 

W 

0 

R 

D 

t 

A 


66 

24523 

02101 

T 

A 

P 

E 

t 

A 


24 

52523 

02454 

A 

P 

P 

E 

A 

R 


65 

01246 

50131 

S 

A 

A 

S 

A 

F 


34 

54656 

60170 

I 

R 

S 

T 

A 

V 


24 

54342 

42546 

A 

R 

I 

A 

B 

L 


30 

01665 

10125 

E 

A 

T 

0 

A 

B 


30 

01463 

46566 

E 

A 

L 

I 

s 

T 


30 

27220 

10154 

E 

D 


A 

A 

R 


30 

65660 

15131 

E 

S 

T 

A 

0 

F 


01 

65305 

06630 

A 

s 

E 

N 

T 

E 


50 

26300 

15051 

N 

c 

E 

A 

N 

0 


66 

01263 

33026 

T 

A 

C 

H 

E 

C 


45 

40 

30272 

PB20 

27777 

13 

K 

E 

D 

• 

77 

77 

Printout 

*2 

26 

51506 

56624 

C 

0 

N 

S 

T 

A 


50 

66210 

17777 

N 

T 


A 

77 

77 


0 

0 

0 

- 

- 

- 

- 

- 

- 


0 

0 

0 

- 

- 

- 

- 

- 

- 


0 

0 

0 

- 

- 

- 

- 

- 

- 


21 

01244 

75150 

« 

A 

A 

M 

0 

N 


32 

01702 

45434 

G 

A 

V 

A 

R 

I 


24 

25463 

06501 

A 

B 

L 

E 

S 

A 


66 

51012 

53001 

T 

0 

A 

B 

E 

A 


46 

34656 

63027 

L 

T 

S 

T 

E 

D 


22 

CA 

77777 

PB33 

77777 

• 

77 

77 

77 

77 

77 



604 






Printout #3 



IA 

PC 


0 

40 

PCI 

16 

1 

30 

50270 

15131 

2 

01 

65305 

06630 

3 

50 

26300 

16573 

4 

47 

25514 

60124 

5 

47 

51503 

20170 

6 

24 

54342 

42546 

7 

30 

65016 

65101 

10 

25 

30014 

63465 

11 

66 

30272 

20101 

12 

54 

30656 

60151 

13 

31 

01653 

05066 

14 

30 

50263 

00150 

15 

51 

66012 

63330 

16 

26 

45302 

72201 

17 

40 

PC 20 

23 

20 

51 

52305 

00152 

21 

24 

54305 

06633 

22 

30 

65346 

52101 

23 

71 

33342 

63301 

24 

34 

65015 

05166 

25 

01 

52543 

02630 

26 

27 

30270 

12573 

27 

01 

24274 

42426 

30 

30 

50660 

10165 

31 

67 

25652 

65434 

32 

52 

66302 

70170 

33 

24 

54342 

42546 

34 

30 

21012 

45252 

35 

30 

24546 

50124 

36 

47 

51503 

20170 

37 

24 

54342 

42546 

40 

30 

65016 

65101 

41 

25 

30014 

63465 

42 

66 

30272 

27777 


CA 

PC43 



E N D A 0 F 

A S E N T E 

N C E A S Y 

M B 0 L A A 

M 0 N G A V 

A R I A B L 

E S A T 0 A 

B E A L I S 

I E D . A A 

R E S T A 0 

F A S E N T 

E N C E A N 

0 T A C H E 

C K E D . A 

Printout #4 

0 P E N A P 

A R E N T H 

E S I S , A 

W H I C H A 

I S A N 0 T 

A P R E C E 

D E D A B Y 

A A D J A C 

E N T A A S 

D B S C R I 

P T E D A V 

A R I A B L 

E , A A P P 

E A R S A A 

M 0 N G A V 

A R I A B L 

E S A T 0 A 
B E A L I S 

T E D . 77 77 
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IA PD 


0 

40 

PDl 

16 







Printout 

#5 

1 

26 

46516 

53001 

C 

L 

0 

S 

E 

A 



2 

52 

24543 

05066 

P 

A 

R 

E 

N 

T 



3 

33 

30653 

46501 

H 

E 

S 

I 

S 

A 



4 

71 

34663 

35167 

W 

I 

T 

H 

0 

u 



5 

66 

01265 

15454 

T 

A 

C 

0 

R 

R 



6 

30 

65525 

15027 

E 

S 

P 

0 

N 

D 



7 

34 

50320 

15152 

I 

N 

G 

A 

0 

P 



10 

30 

50012 

45252 

E 

N 

A 

A 

P 

P 



11 

30 

24546 

50124 

E 

A 

R 

S 

A 

A 



12 

47 

51503 

20170 

M 

0 

N 

G 

A 

V 



13 

24 

54342 

42546 

A 

R 

I 

A 

B 

L 



14 

30 

65016 

65101 

E 

S 

A 

T 

0 

A 



15 

25 

30014 

63465 

B 

E 

A 

L 

I 

s 



16 

66 

30272 

27777 

T 

E 

D 

# 

77 

77 



17 

40 

PD20 

12 







Printout 

#6 

20 

65 

73472 

55146 

S 

Y 

M 

B 

0 

L 



21 

21 

01777 

77777 

t 

A 

77 

77 

77 

77 



22 

0 

0 

0 









23 

0 

0 

0 









24 

0 

0 

0 









25 

21 

01244 

75150 

» 

A 

A 

M 

0 

N 



26 

32 

01346 

63047 

G 

A 

I 

T 

E 

M 



27 

65 

01665 

10125 

S 

A 

T 

0 

A 

B 



30 

30 

01463 

46566 

E 

A 

L 

I 

s 

T 



31 

30 

27227 

77777 

E 

D 


77 

77 

77 




CA 

PD32 











IA 

PE 










0 

40 

PEI 

12 







Printout 

*7 

1 

52 

24543 

05066 

P 

A 

R 

E 

N 

T 



2 

33 

30653 

06501 

H 

E 

S 

E 

S 

A 



3 

52 

54302 

63027 

P 

R 

E 

C 

E 

D 



4 

34 

50320 

17151 

I 

N 

G 

A 

W 

0 



5 

54 

27210 

16624 

R 

D 

» 

A 

T 

A 



6 

52 

30210 

15051 

P 

E 

» 

A 

N 

0 



7 

66 

01525 

45152 

T 

A 

P 

R 

0 

P 



10 

30 

54467 

30101 

E 

R 

L 

Y 

A 

A 



11 

01 

01010 

10152 

A A 

A 

A 

A 

P 



12 

24 

34543 

02722 

A 

I 

R 

E 

D 

. 




CA PE 13 
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Printout *8 



IA 

PG 


0 

40 

PGl 

15 

1 

52 

65306 

72751 

2 

01 

51523 

05424 

3 

66 

34515 

00165 

4 

73 

47255 

14621 

5 

01 

77777 

77777 

6 

0 

0 

0 

7 

21 

01244 

75150 

10 

32 

01702 

45434 

11 

24 

25463 

06501 

12 

66 

51010 

10101 

13 

01 

01012 

53001 

14 

46 

34656 

63027 

15 

22 

77777 

77777 

16 

40 

PG17 

13 

17 

46 

34255 

42454 

20 

73 

01545 

16766 

21 

34 

50300 

16573 

22 

47 

25514 

62101 

23 

0 

0 

0 

24 

21 

01244 

75150 

25 

32 

01702 

45434 

26 

24 

25463 

06501 

27 

66 

51012 

53001 

30 

01 

01010 

14634 

31 

65 

66302 

72277 


CA 

PG32 



P 

s 

E 

U 

D 

0 

A 

0 

P 

E 

R 

A 

T 

I 

0 

N 

A 

S 

Y 

M 

B 

0 

L 

f 

A 

77 

77 

77 

77 

77 


A 

A 

M 

0 

N 

G 

A 

V 

A 

R 

I 

A 

B 

L 

E 

S 

A 

T 

0 

A 

A 

A 

A 

A 

A 

A 

B 

E 

A 

L 

I 

s 

T 

E 

D 

• 

77 

77 

77 

77 

77 






Printout #9 

L 

I 

B 

R 

A 

R 

Y 

A 

R 

0 

U 

T 

I 

N 

E 

A 

S 

Y 

M 

B 

0 

L 

f 

A 

i 

A 

A 

M 

0 

N 

G 

A 

V 

A 

R 

I 

A 

B 

L 

E 

S 

A 

T 

0 

A 

B 

E 

A 

A 

A 

A 

A 

L 

i 

s 

T 

E 

D 

9 

77 


607 





Printout #10 


0 

1 

IA 

40 

26 

PH 

PHI 

51474 

12 

72401 

C 

0 

M 

M 

A 

Printout #10 

A 

2 

47 

34656 

53450 

M 

I 

S 

S 

I 

N 

3 

32 

01315 

14646 

G 

A 

F 

0 

L 

L 

4 

51 

71345 

03201 

0 

w 

I 

N 

G 

A 

5 

70 

24543 

42425 

V 

A 

R 

I 

A 

B 

6 

46 

30210 

17777 

L 

E 

t 

A 

77 

77 

7 

0 

0 

0 

- 

- 

- 

- 

- 

- 


10 

0 

0 

0 

- 

- 

- 

- 

- 

11 

0 

0 

0 

- 

- 

- 

- 

- - 

12 

22 

77777 

77777 


77 

77 

77 

77 77 

13 

40 

PHI 4 

22 





Printout #11 

14 

65 

67256 

52654 

S 

D 

B 

S 

C R 

15 

34 

52663 

02701 

I 

P 

T 

E 

D A 

16 

70 

24543 

42425 

V 

A 

R 

I 

A B 

17 

46 

30210 

17777 

L 

E 

t 

A 

77 77 

20 

0 

0 

0 

- 

- 

- 

- 

- - 

21 

21 

01505 

16601 

f 

A 

N 

0 

T A 

22 

31 

51464 

65171 

F 

0 

L 

L 

0 w 

23 

30 

27012 

57301 

E 

D 

A 

B 

Y A 

24 

51 

52305 

00101 

0 

P 

E 

N 

A A 

25 

01 

01010 

10101 

A 

A A 

A 

A A 

26 

52 

24543 

05066 

p 

A 

R 

E 

N T 

27 

33 

30653 

46522 

H 

E 

S 

I 

S . 

30 

01 

65672 

56526 

A 

S 

D 

B 

s c 

31 

54 

34526 

66501 

R 

I 

P 

T 

s A 

32 

24 

65656 

74730 

A 

S 

S 

D 

M E 

33 

27 

01665 

10125 

D 

A 

T 

0 

A B 

34 

30 

01473 

46565 

E 

A 

M 

I 

S S 

35 

34 

50322 

27777 

I 

N 

G 

m 

77 77 


CA 

PH36 








608 








IA 

PI 










0 

40 

PI1 

20 







Printout 

#12 

1 

30 

50270 

15131 

E 

N 

D 

A 

0 

F 



2 

01 

65305 

06630 

A 

S 

E 

N 

T 

E 



3 

50 

26300 

16573 

N 

C 

E 

A 

S 

Y 



4 

47 

25514 

60124 

M 

B 

0 

L 

A 

A 



5 

47 

51503 

20165 

M 

0 

N 

G 

A 

S 



6 

67 

25652 

65434 

D 

B 

S 

C 

R 

I 



7 

52 

66650 

13151 

P 

T 

S 

A 

F 

0 



10 

54 

01777 

77777 

R 

A 

77 

77 

77 

77 



11 

0 

0 

0 

- 

- 

- 

- 

- 

- 



12 

22 

01010 

10101 

• 

A 

A A 

A A 



13 

01 

01015 

43065 

A A 

A 

R 

E 

S 



14 

66 

01513 

10165 

T 

A 

0 

F 

A 

S 



15 

30 

50663 

05026 

E 

N 

T 

E 

N 

c 



16 

30 

01505 

16601 

E 

A 

N 

0 

T 

A 



17 

26 

33302 

64530 

C 

H 

E 

C 

K 

E 



20 

27 

22777 

77777 

D 


77 

77 

77 

77 



21 

40 

PI22 

11 







Printout 

*13 

22 

51 

52305 

00152 

0 

P 

E 

N 

A 

P 



23 

24 

54305 

06633 

A 

R 

E 

N 

T 

H 



24 

30 

65346 

50124 

E 

S 

I 

S 

A 

A 



25 

47 

51503 

20165 

M 

0 

N 

G 

A 

S 



26 

67 

25652 

65434 

D 

B 

S 

C 

R 

I 



27 

52 

66650 

13151 

P 

T 

S 

A 

F 

0 



30 

54 

01777 

77777 

R 

A 

77 

77 

77 

77 



31 

0 

0 

0 

- 

- 

- 

- 

- 

- 



32 

22 

77777 

77777 


77 

77 

77 

77 

77 




CA 

PI33 











609 





Printout #14 



IA 

PJ 


0 

40 

PJ1 

13 

1 

65 

73472 

55146 

2 

21 

01777 

77777 

3 

0 

0 

0 

4 

21 

01245 

25230 

5 

24 

54650 

12447 

6 

51 

50320 

16567 

7 

25 

65265 

43452 

10 

66 

65013 

15154 

11 

01 

77777 

77777 

12 

0 

0 

0 

13 

22 

77777 

77777 

14 

40 

PJ15 

11 

15 

71 

51542 

72101 

16 

66 

24523 

02101 

17 

24 

52523 

02454 

20 

65 

01244 

75150 

21 

32 

01656 

72565 

22 

26 

54345 

26665 

23 

01 

31515 

40177 

24 

0 

0 

0 

25 

22 

77777 

77777 


CA 

PJ26 



S 

Y 

M 

B 

0 

L 

f 

A 

77 

77 

77 

77 

t 

A 

A 

P 

P 

E 

A 

R 

S 

A 

A 

M 

0 

N 

G 

A 

S 

D 

B 

S 

C 

R 

I 

P 

T 

S 

A 

F 

0 

R 

A 

77 

77 

77 

77 

77 


77 

77 

77 

77 

77 






Printout #15 

W 

0 

R 

D 

t 

A 

T 

A 

P 

E 

t 

A 

A 

P 

P 

E 

A 

R 

S 

A 

A 

M 

0 

N 

G 

A 

S 

U 

B 
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C 

R 
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P 

T 

S 

A 

F 

0 

R 

A 

77 


77 

77 

77 

77 

77 
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Printout *16 


0 


IA 

PK 







40 

PK1 

20 






65 

67256 

52654 

S 

U 

B 

S C 

R 

34 

52666 

50131 

I 

P 

T 

s A 

F 

51 

54017 

77777 

0 

R 

A 

77 77 

77 

0 

0 

0 

- 

- 

- 

- — 

- 

01 

34502 

64667 

A 

I 

N 

C L 
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27 

30016 

63330 

D 

E 

A 

T H 

E 

01 

31465 

12466 

A 

F 

L 

0 A 

T 

34 

50320 

15251 

I 

N 

G 

A p 

0 

34 

50660 

10101 

I 

N 

T 

A A 

A 

01 

01010 

10101 

A A 

AAA 

A 

01 

70245 

43424 

A 

V 

A 

R I 

A 

25 

46302 

10177 

B 

L 

E 

, A 

77 


0 0 0 


0 0 0 
0 0 0 


22 

77777 

77777 


77 

77 

77 

77 

77 


40 

PK23 

11 






Printout 

*17 

40 

PK23 

17 







*17A 

31 

67502 

66634 

F 

D 

N 

C 

T 

I 


51 

50210 

17777 

0 

N 

I 

A 

77 

77 
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0 

0 
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- 

- 

- 

- 

- 


21 

01244 

75150 

f 

A 

A 

M 

0 

N 


32 

01656 

72565 

G 

A 
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0 L U M N A 

H E A D I N 

G A P A R E 

N T H E S I 

S , A I N S 

T E A D A A 

0 F A 77 77 77 


. A R E S T 

A 0 F A S E 

N T E N C E 

A I G N 0 R 

E D . 77 77 77 
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Printout *50 


0 


IA 

SG 


40 

SGI 

14 

71 

24545 

03450 

32 

21010 

13050 

27 

01513 

10165 

30 

50663 

05026 

30 

01657 

34725 

51 

46013 

45001 

66 

34664 

63022 

01 

54306 

56601 

51 

31010 

10165 

30 

50663 

05026 

30 

01343 

25051 

54 

30272 

27777 

40 

SG16 

21 

47 

51543 

00166 

33 

24500 

13134 

70 

30017 

02454 

34 

24254 

63065 

01 

66510 

12530 

01 

46346 

56630 

27 

22017 

02454 

34 

24254 

63065 

01 

01010 

10131 

51 

46465 

17134 

50 

32017 

77777 

0 

0 

0 

0 

0 

0 

0 

0 

0 

01 

50516 

60126 

33 

30264 

53027 

22 

77777 

77777 

CA 

SG37 



W A R N I 

G , A A E 

D A 0 F A 

E N T E N 

E A S Y M 

0 L A I N 

TITLE 
A R E S T 

0 F A A S 
E N T E N 

E A I G N 

R E D . 77 

M 0 R E A 

H A N A F 

V E A V A 

I A B L E 

A T 0 A B 
A L I S T 

D . A V A 

I A B L E 

A A A A A 

0 L L 0 W 

N G A 77 77 


N 

N 

S 

C 

B 

A 

A 

A 

c 

0 

77 

Printout *51 
T 
I 
R 
S 
E 
E 
R 
S 
F 
I 

77 


A N 0 T A C 

H E C K E D 

. 77 77 77 77 77 
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Printout #52 



IA 

SH 


0 

40 

SHI 

13 

1 

71 

24545 

03450 

2 

32 

21010 

14751 

3 

54 

30012 

65146 

4 

67 

47500 

13330 

5 

24 

27345 

03265 

6 

01 

66332 

45001 

7 

70 

24543 

42425 

10 

46 

30652 

20130 

11 

72 

26306 

56501 

12 

27 

30463 

06630 

13 

27 

22777 

77777 

14 

40 

SHI 5 

22 

15 

71 

24545 

03450 

16 

32 

21010 

14751 

17 

54 

30016 

63324 

20 

50 

01050 

60126 

21 

33 

24542 

42666 

22 

30 

54650 

13450 

23 

01 

70245 

43424 

24 

25 

46300 

15024 

25 

47 

30220 

10130 

26 

72 

26306 

56501 

27 

27 

30463 

06630 

30 

27 

01463 

02470 

31 

34 

50320 

17777 

32 

0 

0 

0 

33 

0 

0 

0 

34 

0 

0 

0 

35 

0 

0 

0 

36 

43 

22777 

77777 


CA 

SH37 



W A R N I N 

G , A A M 0 
R E A C 0 L 

U M N A H E 

A D I N G S 

A T H A N A 

V A R I A B 

L E S . A E 

X C E S S A 

DELETE 
D . 77 77 77 77 

Printout #53 

W A R N I N 

G , A A M 0 

R E A T H A 

N A 2 3 A C 

H A R A C T 

E R S A I N 

Avar i a 

B L E A N A 

ME . A A E 

X C E S S A 

DELETE 
D A L E A V 

I N G A 77 77 


) . 77 77 77 77 
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Warning ff 54 


0 

IA 

40 

SI 

SI1 

22 







1 

71 

24545 

03450 

W 

A 

R 

N 

I 

N 

2 

32 

21010 

14751 

G 


A 

A 

M 

0 

3 

54 

30016 

63324 

R 

E A 

T 

H 

A 

4 

50 

01050 

60126 

N 

A 

2 

3 

A 

C 

5 

33 

24542 

42666 

H 

A 

R 

A 

c 

T 

6 

30 

54650 

13450 

E 

R 

S 

A 

I 

N 

7 

01 

26514 

66747 

A 

C 

0 

L 

0 

M 

10 

50 

01333 

02427 

N 

A 

H 

E 

A 

D 

11 

34 

50322 

20130 

I 

N 

G 


A 

E 

12 

72 

26306 

56501 

X 

C 

E 

S 

s 

A 

13 

27 

30463 

06630 

D 

E 

L 

E 

T 

E 

14 

27 

01463 

02470 

D 

A 

L 

E 

A 

V 

15 

34 

50320 

17777 

I 

N 

G 

A 

77 

77 

16 

0 

0 

0 

- 

- 

- 

- 

- 

- 

17 

0 

0 

0 

- 

- 

- 

- 

- 

- 

20 

0 

0 

0 

- 

- 

- 

- 

- 


21 

0 

0 

0 

- 

- 

- 

- 

- 

- 

22 

43 

CA 

22777 

SI23 

77777 

) 

• 

77 

77 

77 

77 
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Warning #55 


0 

IA 

40 

SK 

SKI 

41 







1 

71 

24545 

03450 

W 

A 

R 

N 

I 

N 

2 

32 

21010 

14751 

G 

1 

A 

A 

M 

0 

3 

54 

30016 

63324 

R 

E 

A 

T 

H 

A 

4 

50 

01040 

41401 

N 

A 

l 

1 

9 

A 

5 

26 

33245 

42426 

C 

H 

A 

R 

A 

c 

6 

66 

30546 

50134 

T 

E 

R 

S 

A 

I 

7 

50 

01663 

46646 

N 

A 

T 

r 

T 

L 

10 

30 

22013 

07226 

E 

• 

A 

E 

X 

C 

11 

30 

65650 

1012/ 

E 

s 

s 

A 

£ 

D 

12 

30 

46306 

63027 

E 

L 

E 

T 

E 

D 

13 

01 

46302 

47034 

A 

L 

E 

A 

V 

I 

14 

50 

32017 

77777 

N 

G 

A 

77 

77 

77 

15 

0 

0 

0 

- 

- 

- 

- 

- 

- 

16 

0 

0 

0 

- 

- 

- 

- 

- 

- 

17 

0 

0 

0 

- 

- 

- 

- 

- 

- 

20 

0 

0 

0 

- 

- 

- 

- 

- 

- 

21 

0 

0 

0 

- 

- 

- 

- 

- 

- 

22 
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0 

0 

- 

- 

- 

- 

- 

- 

23 

0 

0 

0 

- 

- 

- 

- 

- 

- 

24 

0 

0 

0 

- 

* 

- 

- 

- 

- 

25 

0 

0 

0 

- 

- 

- 

- 

- 

- 

26 

0 

0 

0 

- 

- 

- 

- 

- 

- 

27 

0 

0 

0 

- 

- 

- 

- 

- 

- 

30 

0 

0 

0 

- 

- 

- 

- 

- 

- 

31 

0 

0 

0 

- 

- 

- 

- 

- 

- 

32 

0 

0 

0 

- 

- 

- 

- 

- 

- 

33 

0 

0 

0 

- 

- 

- 

- 

- 

- 

34 

0 

0 

0 

- 

- 

- 

- 

- 

- 

35 

0 

0 

0 

- 

- 

- 

- 

- 

- 

36 

0 

0 

0 

~ 

- 

- 

- 

- 

- 

37 

0 

0 

0 

- 


- 

- 

- 

- 

40 

0 

0 

0 

- 

- 

- 

- 

- 

- 

41 

43 

CA 

22777 

SK42 

77777 

) 

• 

77 

77 

77 

77 
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Alarm #56 



IA 

SL 


0 

40 

SL1 

20 

1 

34 

50702 

44634 

2 

27 

01662 

45230 

3 

01 

27306 

53432 

4 

50 

24663 

45150 

5 

22 

01662 

45230 

6 

01 

50674 

72530 

7 

54 

01040 

15051 

10 

66 

01244 

64651 

11 

71 

30270 

10124 

12 

65 

01516 

76652 

13 

67 

66016 

62452 

14 

30 

22015 

43065 

15 

66 

01513 

10165 

16 

30 

50663 

05026 

17 

30 

01343 

25051 

20 

54 

30272 

27777 

21 

40 

SL22 

15 

22 

66 

51510 

14724 

23 

50 

73012 

73431 

24 

31 

30543 

05066 

25 

01 

66245 

23001 

26 

27 

30653 

43250 

27 

24 

66345 

15065 

30 

01 

24475 

15032 

31 

01 

46346 

56601 

32 

01 

01010 

10165 

33 

30 

50663 

05026 

34 

30 

65015 

13101 

35 

52 

54512 

54630 

36 

47 

22777 

77777 

37 

CA 

SL37 



I N V A L I 

D A T A P E 

A D E S I G 

NATION 
. A T A P E 

A N U M B E 

R A 1 A N 0 

T A A L L 0 

W E D A A A 

S A 0 D T P 

0 T A T A P 

e .Ares 
t A o fas 

E N T E N C 

E A I G N 0 

R E D . 77 77 

Alarm #57 

T 0 0 A M A 

N Y A D I F 

F E R E N T 

A T A P E A 

DESIGN 
A T I 0 N S 

A A M 0 N G 

A L I S T A 

A A A A A s 

E N T E N C 

E S A 0 F A 

P R 0 B L E 

M . 77 77 77 77 
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Explanation of Indicators, Counters, Temporaries, etc. 


LYO 

1 

2 

3 

4 


5 

6 
7 

10 

11 

12 

13 


14 

15 


20 

21 

22 

23 

24 

25 

26 
27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 


50 


Index counter (C ) -(# subscripts) 
Avail, add. in assem. blk. C'u" & "v") 
Avail, add. in hdg. list. 

Temp, or add. for 1st col. hdg. in hdg. 
list - 1 

Indicator 1st var. 


00 

<-fl. pt. 

ind. 

char, count 


JLlX pt. 

ina. | 



Indicator 2nd var. 

Indicator 3rd var. 

Indicator 4th var. 

Indicator 5th var. 

Index counter (C„) - (#char. in assem. 
blk. word) 

Index counter (C^) 

Heading indicator 
4st bit = 1 =^col. hdg. present) 
k 2nd bit = 1 =^> title present J 
Col. hdg. count 

Char, count (v) or string-out count ("u" 
& M v") 

Current variable XS3 symbol 


Assembly Block (25 q) 


Parenthesis level 
Count of subscripts processed 
Subscript parenthesis level 
Function parent, level (subs. var. 
within subs.) 

Function symbol or subs, var. within 
subscript sym. 
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PRINT STRING-OUT 


Print string-out uses three lines of GN (Get Next Character Routine) with 
the following understanding concerning their function. GN2 holds the buffer 
input VK address in u and v of the line from which the last character has been 

obtained. GN3 holds the shift that has been needed to extract the last 

character. It will vary from 6 to 44^. GN6 holds the number of the blockette 

from which the last character has been obtained. This number varies from 0 to 

5 for the 6 blockettes of the block of input data. 

When the Print Routine has been entered from CT f Control Routine, the di¬ 
vider following PRINT is the last character. It should be a space, but what¬ 
ever it is, it is not included in the group of XS3 codes stored in the output 
for later conversion and printing. 

The current line containing the last character is replaced by a line in 
which 77*s replace all characters already obtained from it. GN3 is used to 
make up the masking QS instruction to secure this replacement. 

The current blockette is examined from the last line backward to find the 
last line in the blockette which is not a line of spaces. From the address of 
this line is subtracted the address of the current line to get the number of 
lines of print data to be transferred to the buffer region output, VN. A 
search for A . is made of the last two lines in the blockette that are not 
lines of spaces. If a A . is found, the Print String-out is terminated. If 
it is not found, the first line of the next blockette is examined. If this is 
a line of spaces, all lines from the second on to the last line of the block¬ 
ette which is not a line of spaces are transferred to the> output. IF this next 
blockette first.line is not a line of spaces, it is assumed to be a line num¬ 
ber, and this causes a termination of the Print String-out. 

Continuing in this manner, each blockette is successively examined until a 
A .is found as indicated, or until a line number is found in the following 
blockette. However, if or when print data in 6 blockettes has been transferred 
to output, the routine is automatically terminated. 

When the routine is terminated, GN2 is set to the address of the first line 
of the blockette following the last one from which data has been transferred. 
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GN6 is given the proper number of this blockette. The exit to the Control Rou¬ 
tine eventually puts future analysis in the Get Next Sentence Routine. This 
routine checks GN2 against a set of addresses of blockette first lines and if 
an equality is found, gets the next sentence from the blockette in which the 
address in GN2 is found. Otherwise, if no equality is found, the Get Next Sen¬ 
tence Routine gets the next sentence from the following blockette. Following 
a print instruction, of course, such an equality is always found. 

When blockette 5, the last of 6 in the block, is one of the group examined, 
a new block of data is read in by the routine and GN2 and GN6 reset as needed. 

When a print instruction is set on the Unityper, a line number goes in the 
first 6 places on the first Unityper line. The tab key should be set and used 
for all runover lines so that a hanging indention of 6 spaces starts each run- 
over line. Failure to do so will cause a premature termination of the Print 
String-out and an error print-out originating from a string-out subroutine. 

Preferably words should be set right out to the end of any one Unityper 
line without any excess spacing. No hyphens should be used to break words at 
the end. If all of a word does not go in one line, as many letters as possible 
should be put on the top line and the remaining letters should start on the 7th 
position following the 6 spaces in the runover line. 

However, the routine does not require such close typing right out to the 
end preceding a runover. Much of the excess spacing that might be put in by 
ragged indentions on the right is eliminated by the routine. As much as 5 
spaces may be left to occur in the print-out by the present system of assem¬ 
bling data from blockettes. If excess spacing is left starting from the 7th 
position on, or if excess spacing is left between words in a line, such excess 
will be fully duplicated in the final print-out. 

A .*s, as explained, when occurring in the last two non-space-filler words 
in a Unityper line or blockette, have the same effect of ending a sentence as 
in the rest of UNICODE. However, their use elsewhere in the print-out data 
does not have this effect because this data is not examined symbol by symbol. 
The blanket rule of eliminating A^s, except at the end of a sentence, prevents 
possible confusion concerning their use. Likewise, they may he eliminated from 
the end of a Print instruction since a following line number in the next block¬ 
ette serves the same purpose of termination. However, their inclusion at the 
end speeds up the program. 
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Flow Chart for PRINT String-Out Routine Page 1 of 2 


Replace with 77*s all 
characters in current 
line except those fol 
lowing PRINT and the 
divider fnllowinn it.. 


Find last word in 
current blockette 
that is not a 
line of spaces. 


Compute number 
of words in block¬ 
ette to be trans¬ 
ferred to output 



Have 6 blockettes' 
been examined? 


/Is this the 
last blockette 
V in buffer 


N /Is A. in last X No 

-W2 significant lines)- 

V of blockette? J 


f Is this the Iasi 
blockette in 
V buffer region? . 
Yes 


Read in new 
block of data 


Setup indicators 
for string-out 
control _ 

Setup for examin¬ 
ing next block¬ 
ette 


|Setup indicators 
for string-out 
control _ 


/Is 1st line or^ 
blockette a line 
v of spaces? j 

—HSS- 


Set up indicators 
for string-out 
control 



Is A. in last Z\ n 0 Read in new 
significant lines)—^ block of data 
.of blockette? y 


Setup indicators 
for string-out 
control 


Write block of 
string-out on 
tape 


Up count of 
words in out' 
put 


> _ 

/'Is - 1st line of'X Yp , 

block a line of )- 

v spaces? J 


No 


•(F) 


Setup for 
examining next 
blockette 


638 


















639 


Flow Chart for PRINT String-Out Routine-Cont. Page 2 of 2 

Flow Chart for Subroutine that looks for A . in Two Lines 






PRINT STRING-OUT REGIONS 


RE VN3507 "N 
RE WT3207 
RE VK3317 
RE GT21 
RE GN1324 
RE CT714 J 


String-out subroutine 
regions used. 


RE PS4400 
RE TZ4445 
RE HT4477 
RE NR4527 
RE VR4551 
RE BB4562 
RE ZP4605 
RE WP4631 
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Print String-Out 




IA 

PS 



0 

MJ 

o 

CT 


1 

TV 

GN2 

PS7 


2 

TP 

GN3 

A \ 


3 

DV 

ZP 

A J 


4 

SA 

BB16 

17 > 



5 

TU 

A 

PS6 



6 

TP 

30000 

Q 



7 

OS 

ZP23 

30000> 



10 

TP 

ZP6 

WP5 


11 

TP 

ZP14 

WP6 


12 

TP 

GN6 

A ^ 



13 

SA 

BB15 

17 



14 

TU 

A 

PS15 



15 

SP 

30000 

17_ J 



16 

TU 

A 

PS17 

Loop to find 

r 17 

TP 

30000 

A 

last line in a 





blockette tha^ 

20 

EJ 

ZP2 

PS22 

is not a line 

21 

MJ 

0 

PS24 

of spaces. 

22 

RS 

PS17 

ZP3 


123 

MJ 

0 

PS17 


f 24 

TU 

PS17 

WP1 


Computation of 

25 

LQ 

WP1 

25 

> 

number of lines 

26 

QT 

ZP4 

WP1 J 


to be trans¬ 

27 

TV 

GN2 

WP2 ^ 


ferred to VN < 

30 

TP 

ZP4 

0 


from VK block¬ 

31 

QT 

WP2 

WP2 ) 

ette 

32 

TN 

A 

A 1 


QQ 

UU 

AT 

nx 

WP1 

A r 


134 

AT 

ZP1 

WP2 J 


35 

LA 

A17 

17 1 

| 


36 

TU 

A 

PS43 

k 


37 

RA 

PS43 

ZP12 J 


40 

TU 

GN2 

PS44 


41 

TV 

WP6 

PS44 \ 


42 

RA 

PS44 

BB20 / 


43 

RP 

30000 

HT ^ 


44 

TP 

30000 

30000/ 



CA 

PS45 




IA 

TZ 



0 

RA 

WP6 

WP2 


1 

TP 

A 

VN 


Ex it 

Current address to v of PS7 

Shift —» A 
6 

Getting proper mask into Q 

Replacing current line with 77 s and any 
characters other than divider to be 
printed 

Clearing counter of blockettes used 

Number of lines accumulated (4) to 

line accumulative counter 

Blockette count to A 

Getting address of address of last line 

of current blockette to u of PS15 

Getting address of last line of current 

blockette to u of PS17 

Contents of last line of current 

blockette to A 

Is it a line of spaces? 

Reducing u of PS17 by one 

Address of last significant line in a 
blockette to WP1, 


Current address to v of WP2 and v of A 


Number of lines in blockette to be 
transferred to WP2 
Setting up u of PS43 so that right 
number of lines will be transferred to 
output region 

Setting up u of PS44 so transfer to VN 
can be started 

Getting right address in VN to which 
transfer of lines is to be made 
Transfer of excess-three-coded lines of 
print data to output region 


Number of lines accumulated plus number 
of lines transferred from last block¬ 
ette gives total accumulated in WP6 to 
date/ Total number of lines in output 
to first line of output* 
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2 

RJ 

WT 

WT1 

Getting output written on tape 

3 

MJ 

0 

PS 

Exit 

4 

RJ 

HT24 

HT20 

Getting new block read in and getting 
GN6 reset to zero 

5 

TP 

VK 

A 1 

Is 1st line of new block a line of 

6 

EJ 

ZP2 

TZ26 J 

spaces? If not, it is assumed to be a 
line number and print is terminated 

7 

SP 

BB 

17 1 

L 

10 

AT 

BB 

GN2 J 

i Putting 0 VK VK into GN2 

11 

MJ 

0 

TZ 


12 

RJ 

TZ25 

TZ17 

Setting up GN to proper 1st line ad¬ 
dress of next blockette 

13 

TU 

GN2 

TZ14 1 

| Is 1st line of blockette a line of 

14 

TP 

30000 

a ; 

> spaces? If not, it is assumed to be 

15 

EJ 

ZP2 

TZ27 J 

1 a line number and print is terminated 

16 

MJ 

0 

TZ 



Setting up GN2 

fl7 

TP 

GN6 

A 

to proper 1st 

20 

SA 

BB21 

17 

line address of 





next blockette< 

21 

TO 

A 

TZ23 i 

to be examined 

22 

TO 

A 

TZ24 j 


23 

SP 

30000 

17 


24 

AT 

30000 

GN2 


125 

MJ 

0 

30000 


26 

RJ 

TZ25 

TZ17 1 


27 

RA 

GN2 

ZP15 j 


30 

RA 

WP6 

WP2 


31 

MJ 

0 

PS12 



CA 

TZ32 




IA 

HT 


0 

RA 

WP5 

ZP1 

1 

EJ 

ZP 

HT11 

2 

TP 

GN6 

A 1 

3 

EJ 

ZP13 

HT25J 

4 

RA 

GN6 

ZPl 

5 

TV 

BB22 

NR1 

6 

RJ 

NR 

NR2 


7 

RJ 

TZ25 

TZ17 

10 

MJ 

0 

TZ 

11 

TP 

GN6 

A 

12 

EJ 

ZP13 

HT16 

13 

AT 

ZPl 

GN6 

14 

RJ 

TZ25 

TZ20 


Getting address of address of 1st 
line of current blockette to A u 
Setting up u of next 2 instructions to 
this address of address of 1st line. 
Address of 1st line to A u 
Address of 1st line to GN2 both in u 
and v 

Setting up GN2 to proper StcL line ad¬ 
dress of blockette to be examined 
Bringing up accumulative addition to 
date of number of lines in output 


Counts no. blockettes used 
Have 6 blockettes been used? 

Is this the last blockette in the 
block? 

Adding one to ordinal number of 
blockette to be checked 
TZ12 to v of NR1 

Check to see if A. is in last block¬ 
ette in last 2 significant lines. 

If not, return to TZ12. 

Setting up GN2 to proper 1st line 
address of next blockette 

Is the current blockette No. 5 and 
hence the last one in block? 
Increasing blockette number by one as 
we go on to next 

Setting up GN2 to address of 1st line 
of blockette next to be examined by 
String-out Control 
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Getting new 
block in. 


Loop to 
locate A . 


15 

MJ 

0 

TZ 

16 

RJ 

HT24 

HT20 

17 

MJ 

0 

TZ7 

'20 

TD 

It 

BB17 

GT3 

21 

RA 

13 

ZP1 1 

22 

RJ 

GT2 

GT J 

23 

TP 

ZP6 

GN6 

^24 

MJ 

0 

30000 

25 

TV 

BB6 

NRl 

26 

RJ 

NR 

NR2 

27 

MJ 

0 

HT16 



CA 

HT30 



IA 

NR 


0 

MJ 

0 

30000 

1 

MJ 

0 

30000 

2 

SP 

WP1 

17 1 

3 

TD 

A 

VR5 j 

4 

RJ 

VR10 

VR 

5 

TD 

VR5 

NR 7 *\ 

6 

TP 

ZP5 

Q ( 

7 

QT 

30000 

A [ 

10 

EJ 

ZP7 

NRl2 J 

11 

MJ 

0 

NR17 

12 

TD 

VR5 

NR15 ^ 

13 

RS 

NR15 

ZP3 

14 

TP 

ZP16 

Q 

15 

QT 

30000 

A 

16 

EJ 

ZPl 

NR J 

17 

RS 

VR5 

ZP3 \ 

On 

£~\J 

D T 
HO 

im i n 
VftiU 

t m ( 

VIY J 

21 

MJ 

0 

NRl 


CA 

NR22 



0 

IA 

TP 

VR 

ZP14 

WP 

1 

TP 

ZP10 

WP4 

2 

TP 

ZP11 

WP3 

f 3 

LQ 

WP3 

6 

4 

LQ 

WP4 

6 

5 

QT 

30000 

A 

6 

EJ 

WP3 

NR 

\J 

IJ 

WP 

VR3 

10 

MJ 

0 

30000 


CA 

VEll 



Getting a new block of data in 

Reading in another block of data 
to VK 

Keeping up count of number of blocks 
read in by string-out 


TZ4 to v of NRl 

Check for A . in last 2 significant 
lines in blockette. (Goes to T24 if 
no A . is found) 

Returns here if A . has been found 


Exit if a A . is found 

Exit if no A . is found 

Address of last significant line of 

blockette is sent to u of VR5 

Check for A . in last significant 

line 

Check for . in leftmost position on 
last line 


Check for A in rightmost position 
on next to last significant line 


Check for A . in next to last 
significant line 


Index 4 to WP 
Mask to WP4 
A . to WP3 
A . shifted 6 places 
7777 shifted 6 places 
Portion of line is masked out 
Is it equal to A . in shifted 
position? 
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IA 

BB 



0 

0 

0 

VK ' 


1 

0 

0 

VK24 

Address of beginning lines of 

2 

0 

0 

VK50 

v blockettes in input 

3 

0 

0 

VK74 


4 

0 

0 

VK120 


5 

0 

0 

VK144J 


6 

0 

0 

TZ4 


7 

0 

0 

VK23 'I 


10 

0 

0 

VK47 ! 


11 

0 

0 

VK73 1 

v Addresses of last lines of blockettes 

12 

0 

0 

VK117 

in input 

13 

0 

0 

VK143 


14 

0 

0 

VK167J 


15 

0 

0 

BB7 

Address of address of last line of 

1st blockette 

16 

0 

0 

ZP15 

Used to help to get proper mask for 
changing 1st line of blockette that 
is to be printed 

17 

50 

00105 

VK 

Parameter to use GT in reading in 
another block 

20 

0 

0 

VN 

Address of 1st line of output 

21 

0 

0 

BB 

Address of address of 1st line of 1st 
blockette 

22 

0 

0 

TZ12 



CA 

BB23 





IA 

ZP 



0 

0 

0 

6 


1 

0 

0 

1 


2 

01 

01010 

10101 

Line of spaces 

3 

0 

1 

0 

4 

5 

0 

77 

0 

0 

777771 
0 J 

► Masks 

6 

0 

0 

0 


7 

22 

0 

0 

Period 

10 

77 

0 

77 

Mask 

11 

22 

0 

01 

<1 

0 

12 

0 

30000 

0 


13 

0 

0 

5 


14 

0 

0 

4 

Index 

15 

0 

1 

1 


16 

0 

0 

77 > 


17 

0 

0 

7777 


20 

0 

7 

77777 

> Masks 

21 

0 

777 

77777 

22 

0 

77777 

77777 


23 

77 

77777 

77777J 



CA 

ZP24 
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Temporary Region - WP 


0 Index for search for A . 

1 Holds address of last significant line in blockette 

2 Number of lines transferred per blockette 

3 Holds A . shifted for comparison 

4 Holds mask shifted 

5 Counter for number of blockettes examined 

6 Number of output lines - accumulative 
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IF STRING-OUT 


There are two separate analyses in this routine - one of the first clause 
started by IF subroutine and the second of one or two succeeding clauses start¬ 
ed in IU subroutine. Each of these control routines has in turn several sub¬ 
routines which handle different facets of the string-out. 

Examples of typical IF sentences are shown below: 

24. If X < Y jump to sentence 7, if X > Y jump to sentence 74, 
if X = Y jump to sentence 32.5 A . 

36. If X > = Y jump to sentence 65, if X < Y jump to sentence 44 A. 

13.1 If X NOT = Y jump to sentence 2, if X = Y jump to sentence 36 A . 

12. If X > Y jump to sentence 6, if X < = Y jump to sentence 52 A. 

11. If X = Y jump to sentence 41, if X NOT - Y jump to sentence 31 A. 

40.4 If X < Y jump to sentence 30, if X = Y jump to sentence 4 A. 

76. If X = Y jump to sentence 50 A. 

72.3 If X < = Y jump to sentence 42 A. 

21.2 If X (i,j,k,l) > Y(i,j) jump to sentence 3, if X(i,j,k,l) < 

=Y (i,j) jump to sentence 5.2 

Only one set of variables or constants is permitted in any one IF sentence. 
Each of the first five examples above exhausts all the possible relations 
between X and Y. No duplication of relations is permitted in separate clauses. 

Throughout this write-up the set of variables or constants will be referred 
to as X and Y, X being the left-hand value and Y the value on the right of the 
relation symbol. In actual use, of course, X and Y may assume any and all of 
the combinations of letters and figures that constitute variables and constants. 
No distinction is made between X and Y. Restrictions on any one apply equally 
to the other. 

X and Y may be numbers in scientific notation form. The latter ideally 
is a number in decimal form between 1 and 10 times a power of 10. Actually 
any number up to 12 decimal digits is permitted to be the left-hand member of 
a scientific notation number. Other variations taken care of by the program 
are revealed in the examples given below: 
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1.234 e 34 

3.4567235641 * 10 20 

6.8924 * 10 POW 29 

9.67 * 10 POW 18 

8.3276 e -23 

-5.298765 * 10 33 

2.3678987654 * 10 -16 
-22 

4.7 * 10 
3.56 * 10 - 34 

-2.6784 e ‘39 

-2.6784 e -39 
39 

-2.6784 e - 
3.3786 * 10"23 

The asterisk, used as a multiplication sign in UNICODE, is the only binary 
operator permitted in the IF sentence, and it is only allowed in scientific 
notation. Note that the superior negative sign may be used in front of the 
power of 10 instead of the regular negative sign, but the superior sign may not 
be used in front of the left-hand member of a scientific notation number. 
Following an asterisk 10 must appear. The next number is assumed to be the 
power of 10 whether superior or lower-case. Following e (exponent) the next 
number occurring is assumed to be the power of 10. 

Too high a value of exponent may give a floating-point number which is too 
large to represent. Ordinarily such a number would cause a machine fault and 
stop. A subroutine IQ is used in this connection to locate such discrepancies, 
avoid the machine-faulting stop, and give an error print-out. See separate 
write-up on this subroutine. 

No expressions are allowed in the IF sentence. No plus signs are permitted. 
The absence of a negative sign indicates positive. Thus, some examples of what 
X and Y may not be are: a + b, a - b, a/b, Z + a * b, a 2 , b a , a 3 ^ 2 . 

If such evaluations are to be compared, they must be computed separately 
by other instructions first and then referred to in the IF sentence by the 
simple variable to which they have been equated. 

In the following chart are given the relation symbols permitted by the 
IF routine. NOT, occurring in the second position of a symbol set, is not 
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acceptable. Thus, NOT NOT is not acceptable, but other double-up relation 
symbols are interpreted as single symbols. For example, < < is taken as mean¬ 
ing <.Tf NOT occurs alone as a single relation, it is accepted without error 
reference with the print-out: (NOT) interpreted to mean (NOT EQUAL). 


Preferred 

Form 

Acceptable Variations 

Code Figures 
Assigned 
to Relations 

< 

< < 



2 

3 

> 

> > 



4 

< = 

= < 

NOT > 


5 

NOT = 

<> 

> < 

NOT 

6 

> = 

= > 

NOT < 


7 


The code figures assigned to these relations are used by the routine to 
check on non-duplication of relations and to facilitate the reversal of a 
relation symbol when needed. 6 - ^ 2 , 3 , 4 } = ^4 , 3 f 2 ^ and 12 - -^5, 6, 7^ ={7,6,5j. 
This enables < to be changed to > and < to > , and vice versa. = is never 
changed to NOT =, and vice versa. A total of three single-relation code 
figures is always 9 when all possible relations of X and Y have been postulated 
and there is no duplication. Similarly, the total of a double-relation and a 
single-relation, non-duplicating symbol is 9. 

The X and Y initially examined in the first clause form the set that is 
stored for later comparison in the running program. The sets of X and Y that 
appear in the second and third clauses are compared to the first set as a 
check on the validity of the sentence. 

Ideally any set of X and Y should be repeated with the same order and with 
the same set of signs in the second and third clauses as it had in the first. 

If care is taken to do this, the routine operation is speeded up. However, 
failure to do this does not necessarily invalidate the sentence. If it can be 
done without changing the meaning, the program will reverse the relation symbol 
to correct altered order and signs. See section describing technical operation 
of JF for details on the theory back of relation-symbol reversal. An example 
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Gjl hGW it WGxkS IS the xOllOWlfiy; 


and -Y < X in the second clause. The routine interprets the latter as X > -Y, 
and stores the > symbol in output. 


If the second or third variable set cannot be equated to the initial set 
by a consistent sign change, an error print-out will occur. All that is 
stored from the second and third clauses of an IF sentence for use in the 
running program are the line numbers to which jumps are to be made and the 
relation code figure for the second test, if any. 

No more than two tests are needed in a running program for an IF sentence. 

A third IF situation following two tests is always an unconditional jump. 
Similarly, if the first test is for a double relation, its failure makes a 
second IF hypothesis true, necessitating an unconditional jump, and vice versa. 
In the last situation VN6 and VN7 (the second test and line number storage) 
are left empty, VNIO gets the line number of the unconditional jump, and VN4 
and VN5 take the first test code and line number, respectively. See attached 
sheet explaining output. 

To return to additional specifications in writing X and Y, a superior minus 
sign is not permitted to indicate negative value of X or Y. If an absolute 
sign has already appeared, a negative sign following it will be ignored since 
the absolute sign negates its meaning. An absolute sign causes the indicator 
for such to be put into the proper line, regardless of the previous appearance 
of a negative sign. 


An absolute sign appearing in front of a variable or constant applies only 
to that variable or constant. The absence of a closing absolute sign after 
the value is not noted. However, the appearance of a closing absolute sign 
causes a check to see if an open absolute sign has been recorded. If not, 
there is an error print-out. 


Only a single value is stored for a function in UNICODE. The use of a 
variable function in an IF sentence presupposes its computation or read-in via 
a previous instruction. Hence arguments following a function, whether of 
constants or variables, are ignored both in analysis of the first clause and 
in analysis of the second and third clauses. Also differences between these 
superfluous arguments between clauses are not noted. 
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If either X or Y is a fixed-point variable, the other must be a fixed- 
point constant or fixed-point variable. If either X or Y is a floating-point 
variable, the other must be a floating-point number or variable. Based upon 
such considerations, the routine translates numbers to octal or floating point, 
gives them call words, and stores them in list CL. 

If both X and Y are constants, they are sent to the subroutine IT, where 
an immediate comparison is made of them. If the test shows the relation true, 
the sentence is changed to a jump sentence and the string-out output modified 
accordingly. (see print-out schedule) alerts the operator to this decision 
without error reference. 

If the test fails, a jump is made to the beginning of the IF routine and 
the remaining sentence clauses (if any) are processed as a separate IFsentence. 
This is the reason recognition of the IF symbol is built into the first part 
of IF string-out. 

If specific sets of arrays of values of unknowns are to be compared, sub¬ 
scripted variables should be used. Up to four subscripts may be used for each 
variable. Subscripts in an IF sentence may not be expressions. However, a 
subscripted variable used for X or Y in the second or third clauses must agree 
in every particular with that used in the first clause. As an example, sup¬ 
pose "X(i,j,k) <Y(i,j,k,l)" is in the first clause; X(i,j,k) and Y(i,j,k,l) 
must also appear in the second and third clauses. 

All print-outs include as a first element, Sentence_(IF), where the 

dash indicates a line number which will be typed out. Some print-outs merely 
give information on how the program has handled an unusual situation. These 
do not cause a reference to the error routine or termination of the IF 
string-out. Other print-outs are accompanied by an error reference but not 
termination. The more serious type includes both error-referencing and IF 
string-out termination. Some without built-in termination are used most of 
the time with external termination. In the attached chart of print-outs, 
subscripted G's are assigned for simplification of following technical 
description of the segments of the IF string-out. 
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Error Refersnos i I 






Built-In If 

c int es Out 

T e I'm matron 


Sentence_(IF) 


Inconsistent sign change 


Symbol rejected_ 



Disallowable character in 
Ex pon en t_ 


Incorrectly written_; 


Scientific notation in¬ 
correctly written 




G 8 

TO should follow jump 

G 9 

Becomes Unconditional 

Jump to Sentence 

G 10 

Space period occurs 
before sufficient data 
given 

G 11 

Comparison symbols 
ambiguous 

G 12 

Set of variables differs 

■T «« A (VI 4 M 1 + •» A 1 A A + 

uuui iiiiudi dot 

G 13 

(NOT) interpreted as 
(not equal) 

G 14 

Fixed and floating point 
values are not comparable 



*The symbol being examined when this print-out occurs is given here. 

It indicates how far in the sentence analysis has gone before external 
termination. 
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IF Control 


IF subroutine is the control of analysis of the first clause of the IF 
sentence. It clears VN output lines (except for first four) and clears tem¬ 
porary storage lines VN71-121. See attached charts for explanation of data 
stored in these addresses. VN71-121 is used first to accumulate data on X. 
Then this data is transferred to VN40-70, leaving VN71-121 for use in accumu¬ 
lating data on Y. 

The divider routine II is set up so that it can be entered only once 
without error during the first-clause analysis. The first two symbol output 
lines are sent to temporary storage. A pseudo-op indicator is put in VN33, if 
needed. 

Recognition of , ; IF ( causes a return to the SY referencing instruction 
that gets the next symbol. A . recognition sends analysis to the IK termi¬ 
nation routine. If the symbol is a constant, control goes to IE. IG takes 
over for a fixed-point variable and IH assumes control for all other variables. 

A character not identified causes print-out G 3 and then a return to get 
next symbol. 

IK— A . Termination 

Zero value is checked for successively in VN5, VN4, VN14, and VN24. If 
found in any, print-out G^q ensues with termination. If not found, WT, the 
tape-write routine, is referenced to get completed data written on tape before 
return to CT, the String-out Control Routine. 

From the analyses of the second or third clauses, an entry is made to 
IK14. The absence of zero in VN10 sends the routine to the loop mentioned 
above. If a zero is found in VN10, a check is made ifVN34 equals 00 00003 
00000. If yes, Gjq occurs with termination. If no, VN7 and VN 6 are succes¬ 
sively examined for zero. If found, G^o occurs with termination. If not 
found, a jump is made to the loop of zero checking described above. 

IE Constant Analysis 

Reference is made to RB for checking validity of a constant. A constant 
indicator is stored in VN31 for X and VN32 for Y. 
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If the number of characters is > 6, the number is converted to floating 
point via proper subroutine. Also, a floating-point constant indicator is 
filled with 40 0 0. This is necessary because a floating-point number may 

be zero and its presence as such in regular floating-point location could not 
be recognized. 


Either a superior or regular dash is permitted to indicate a negative sign 

following e or * in scientific notation. Failure of a figure to follow this 

sign causes G . 10 not following * causes G^. 10 may not be a superior figure. 

After 10, there may be POW, but after this either a negative sign or figure 

must be next to avoid G,. 

6 


An exponent is checked by RD subroutine. If superscript, it is sent to 
IN, the Superior to Lower-Case Translator, where G^ may occur. See separate 
write-up on this subroutine. 


The exponent is then converted to octal by use of RS subroutine and trans¬ 
ferred to proper input line IQ2 either as a positive or negative number. After 
checking and conversion to floating point in IQ (see separate write-up), the 
number is changed to negative, if desired. 


Failure to find an open absolute sign when a closed one has shown up 
causes G^. 

A relation symbol <,>,=, or NOT causes a jump to II subroutine. JUMP 
symbol sends control to IJ subroutine. Characters ( ) , ; initiate a return 

to beginning of loop to get next symbol. An unrecognized symbol causes G 0 

o 

without termination. This loop, starting at IE115, is used frequently as an 
exit by other subroutines. 


IG—Fixed-Point Variable Analysis 

After a reference to RH to check for validity of variable, the call word 
is obtained from TS if it is there, or from TA when it is in the Combination 
List. If the call word is not in the latter or the pseudo-op list, it is 
secured by adding 64000 to a number put in A by RJ tk tkl. It is then 
added to the combination list by using TF and TE. Explanation of uses of 
these routines is found in separate write-ups on each. 
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IH and IL—Floating-Point Variable Analysis 

On entry to IH, two separate courses are taken, depending on whether the 
sentence is within a pseudo operation or not. 

If a subscripted variable is identified, the modulus (the number of words 
stored for the variable) is assigned a call word, and this call word put in 
the u position of an output line. In the same word in the v position is put 
the number of subscripts. 

The format of the data on a subscripted variable obtained from the combi¬ 
nation list is as follows: 


TA4 

0 

0 

(call word) 

TA5 

0 

(modulus) 

(number of subscripts) 

TA6 

0 

(2d subscript 
multiplier) 

(1st subscript multiplier) 

TA7 

0 

0 

(3d subscript multiplier) 


The proper multipliers for the subscripts of variables not in the pseudo-op 
list are obtained from region TA by means of a small subroutine entered via 2 
one-shot RJ switches. The order of entry (only three for any set of sub¬ 
scripts) determines which multiplier is secured* The Constant call word assi gned 
to it is then transferred to the u position of the output line. The v position 
of this line is later filled with the call word of the fixed-point variable or 
constant involved. 

The call word of the pseudo-op subscripted variable is in the form 0 0 

76ZRR where Z is the number of subscripts and RR the current pseudo-op variable 
number. Thus, if 3 single-valued variables have been assigned positions in 
the pseudo-op list, (0,1,2), RR will equal 3. The routine extracts the Z and 
sets up an index for processing the subscripts. To the extracted RR is added 
63000. This number becomes the call word of the subscripted variable. The 
number of subscripts is added to 630RR to give a call word assigned to the 
modulus. The call words of the subscript multipliers start with (630RR + 1). 

As subscripts are encountered, they are supposed to have call words starting 
with (630RR + Z + 1). Below is given an example of pseudo-op input region 
for the case of three subscripts. 
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Assigned Call word 


630RR 


Subscripted variable 

630RR 

+ 1 

I„ - 1st multiplier 

M 

630RR 

+ 2 

J M - 2d multiplier 

630RR 

+ 3 

Modulus 

630RR 

+ 4 

Subscript 1 

630RR 

+ 5 

Subscript 2 

630RR 

+ 6 

Subscript 3 


A subscripted variable in a pseudo operation may be a regular floating¬ 
point variable or pseudo-op variable. Whichever it is, it may have fixed- 
point variable subscripts located either in the pseudo-op list or combination 
list. If these subscripts are found in neither list, they are assigned call 
words in the 64000 range and put in the combination list. Note that if a 
subscript is a constant, it will not be in the pseudo-op list. 

If a subscript of a subscripted variable fails to be either a constant or 
a fixed-point variable, occurs with termination. 

When the call word of a nonsubscripted variable has been stored, it is 
examined to see if it is that of a function. If so, analysis goes to an IL 
exit subroutine in which any arguments that might be inadvertently put follow¬ 
ing the function are ignored. Exits and print-outs are the same as those in 
the IE exit subroutine. If the call word is not that of a function, the exit 
from IL is made via the IE exit subroutine. 

II—Relation Symbol Analysis 

No more than one entry can be made to this routine during an IF in¬ 
struction. A second entry causes with termination. Failure to have a 
second relation symbol in the clause follow immediately after the first will 
create this error. A "NOT" occurring in the second position causes the same 
error termination. 

The data gathered on X is transferred by this coding from VN71-121 to 
VN40-70 and the first region is cleared for succeeding data to be gathered 
on Y. 
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IJ—Jump Subroutine 


Failure of the next symbol to be "TO” causes Gg without error reference. 

A loop of symbol recognition similar to that used in the separate jump in¬ 
struction string-out is included at the start. See the write-up on this 
routine. Failure to meet the specifications of the loop causes with 
termination. Getting the assumed line number into proper form terminates 
this first loop and may cause error print-outs explained in the line-number- 
routine write-up. Regardless of what happens in the line-number routine, 
its output is transferred to VN5 and the string-out continued. The referenced 
number is sent via IX routine to reference list 3Z where it is later given 
a call word by other routines. 

Variables or constants X and Y are compared in the second part of this 
subroutine. Combinations of floating-point and fixed-point values cause G^. 

Fixed-point numbers or those assumed to be such are not translated from 
excess-three decimal code until the analysis of this subroutine. Then they 
may be translated either to octal or floating point, depending upon the nature 
of the corresponding variable or constant. 

VN11 to VN30 output lines are now filled with the data that has been 
gathered in the temporary storage regions. 

The closing loop checks for parentheses, comma, semicolon, space period, 
and IF. G^ ensues with termination if none occur. Recognition of IF sends 
the analysis to IU, the beginning control routine for analysis of the second 
clause. 


IU—Second and Third Clause Control 

The absolute sign indicators for X and Y are transferred to the temporary 
storage lines directly above the excess-three representation of X and Y, 
respectively. Thus 11 identifying lines on each of X and Y are in one location 
for future reference. 

Exits from this control routine are IY, IY33, JB, and IK14, depending on 
whether X or Y is a constant, fixed-point variable, or floating-point variable, 
or whether A . has been encountered. Temporary storage region VN150-164 is 
cleared for gathering of data on X or Y. Gg occurs without error reference for 
an unrecognized symbol. 
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IY—Number Analysis 


This routine (the counterpart to IE) has similar checks on scientific 
notation. or follow a misuse of the latter. Excess-three storage of 
data on X and Y is continued in it. The exit loop is in JB6-JB17 and is 
shared with variable subroutines. G^ occurs if indicated following use of 
this loop. 


JB—Floating-Point Variables 

If a floating-point-variable symbol is not found in either the combination 
list or the pseudo-op list, it cannot be the same as any of the symbols en¬ 
countered in the first clause. Hence G l0 follows. 

1 1 

Excess-three representations of subscripts are stored in VN156-161. 

The exit loop sends analysis to JC for a relation symbol, JF for a jump 
symbol, and IK14 for A. Additional errors and print-outs are similar to 
those of IH and IL, 


JC—Relation Symbol Subroutine 

Count and storage of excess-three relation symbols is the function of this 
routine. Also data on X is transferred to VN130-144, and region VN150-164 
is cleared for use of Y data accumulation. If two relation symbols have been 
found, control is transferred to IU5 to get next symbol. Otherwise, the jump 
is made to IU6 since an unidentified symbol has still to be examined. G,_ 
followed by termination occurs if routine is referenced twice in a single 
clause analysis or if second symbol is "NOT". 

JI—Relation-Symbol Check 

Referenced from JF, JI examines the count of relation symbols, checks 
their consistency with previous counts, and assigns a code figure to the symbol 
either in VN6 or temporary location JI123 if all relations have been used in 
a sentence. An accumulative excess number (over 3) of relation symbols causes 
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JF—Second Jump Subroutine 


Let us call the X symbol the second or third time through and the Y 
symbol Y^. This routine compares excess-three data gathered on X 2 in VN131-141 
with similar data gathered on X the first time through. If an inequality is 
found, Y£ data in VN151-161 is compared to X data. Similarly, as the situation 
requires, Y data is compared with Y^ data and later, if needed, with X^ data. 
Next signs are compared. 


Since the only values obtained from the second and third clauses other than 
the line numbers are the relation symbols, it was convenient in a few lines to 
use a theory of symbol reversal to correct what might ordinarily have been 
errors in position and sign of variables. XCs) means sign of X. Following 
are the rules that govern such reversal. 


Variables 


Signs 


Symbol 

Reversal 



X 

Y 



'X(s) = X 2 (s) | 
Y(s) = Y 2 (s)J 
| X(s) f X 2 (s) "1 
J(s) t Y 2 (s) J 


'X(s) = Y 2 (s)"I 
I Y(s) = X 2 (s )J 
j X(s) + Y 2 (s)" 1 
J(s) f X 2 (s) J 


No 


Yes 


Yes 


No 


All sign combinations other than the above cause G 2 * Failures to find 
equality of {x,y} with jx^Y^ , exclusive of sign, in any order causes G l2 . 

After symbol reversal, if needed, the relation codes are compared for 
uniqueness and internal consistency. A loop to get the line number operates 
similarly to the one in IJ. 


If VN10 has been filled with a line number, the next loop is the final 
exit. If only VN7 has a line number, a loop is entered which, on recognition 
of an IF symbol, will send analysis back to IU2 for the third and final 
analysis of an IF clause. The final exit loop permits only a closed paren¬ 
thesis and A. The other loop permits ( ) , ; A. IF. Failure of either to 
recognize a symbol causes G,_ with termination. 
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Prior to analysis of the third clause, this routine puts 00 00003 00000 
in VN34. This indicator is later used to check if sufficient data is given 
in the third clause to complete the sentence string-out. 

Output VN 


0 0 0 34 


Number of lines of output in v 


1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 
27 
30 


Line Number 
IF77777777 
0 0 v 


0 




Name of instruction 

v = call word of line number. 

Holds code figure €^2,3,4,5,6,7} to indicate 
relation test 

Line number of sentence to be jumped to on 
first test. 

Holds code figure in v for second relation 
test 

Holds line number of sentence to be jumped 
to on second test 

Holds line number of sentence to be jumped 
to unconditionally 

u = Call word of modulus, v = number of sub¬ 
scripts of X 

Negative value desired if 40 0 0, other¬ 
wise cleared 

Absolute value desired if 40 0 0, other¬ 

wise clear 
Call word of X 

u = call word of I multiplier, v = call word 
of I 

u = call word of J multiplier, v = call word 
of J 

u = call word of K multiplier, v = call word 
of K 

v = call word of L 

u = call word of modulus, v = number of sub¬ 
scripts of Y 

Negative value indicator 
Absolute value indicator 
Call word of Y 

u = call word of subscript multipliers 
v = call word of subscripts of Y 


31 


If X is a constant, 40 0 0, otherwise clear 


32 

33 


If Y is a constant, 40 0 0, otherwise clear 
Pseudo-op indicator, 40 0 0, otherwise clear 
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^Temporary Storage in VN 


X Y 


40 

71 

Floating-point constant 

41 

72 

Fixed-point constant in excess-three 

42 

73 

Used 

in making call word of multiplier 

' 43 

74 ' 

/indicator of fixed-point variable (40 0 0) 

1 Holds absolute-sign indicator during comparison 

44 

75 

sy^ 

Excess-three representation of variable 

45 

76 

sy 3 


46 

77 

Sign 

of exponent indicator (40 0 0) 

47 

100 

Exponent of 10 in excess three 

50 

101 

Subscript 1 in excess three 

51 

102 

Subscript 2 in excess three 

52 

103 

Subscript 3 in excess three 

.53 

104 

Subscript 4 in excess three 

54 

105 

u = call word of modulus; v = number of subscripts 

55 

106 

Negative sign indicator (40 0 0) 

56 

107 

Absolute sign indicator (40 0 0) 

57 

110 

Call 

word in v 

60 

111 

u = call word of I multiplier; v = call word of I 
subscript 

61 

112 

u = call word of J multiplier; v = call word of J 
subscript 

62 

113 

u = call word of K multiplier; v = call word of K 
subscript 

63 

114 

v = call word of L subscript 

64 

115 

Index for subscript assembly 

65 

116 

Count of relation symbols 

66 

117 

First relation symbol 

67 

120 

Second relation symbol 

70 

*2 

121 

Y 2 

Floating-point constant indicator (40 0 0) 

130 

150 

Negative sign indicator (40 0 0) 

131 

151 

Abso; 

Lute sign indicator (40 0 0) 

132 

152 

2 

sy 

* Excess-three representation of variable 

133 

153 . 

sy 3 J 
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134 154 1 Sign of exponent indicator (40 0 0) 

135 155 Exponent of 10 in excess-three 

136 156 Subscript 1 in excess-three 

137 157 Subscript 2 in excess-three 

140 160 Subscript 3 in excess-three 

141 161J Subscript 4 in excess-three 

142 162 Count of relation symbols 

143 163 First relation symbol 

144 164 Second relation symbol 


♦Braced portions are those compared during analyses of second and third 
clauses to determine equality of variables. 
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Scientific Notation Checking Routine 


The purpose of this routine is to check the size of a number in scientific 
notation form and then convert it to floating point. If it is too large for 
floating-point representation, the error routine is referenced and the following 

error print-out is given: Sentence_(_)—Absolute Value of Number 

Too Large. If too small, the floating-point representation is set to zero 

and this print-out occurs: Sentence_(_)—Absolute Value of Number 

Too Small—Given Zero Value. In the latter case, the error routine is not 

referenced. 

To use the routine a number to the left of e or * is first converted to 
floating point by use of the "excess-three decimal to floating-point" routine. 
This floating point number, either positive or negative, is put in input line 
IQ2. The exponent of 10 after conversion to octal by means of the proper 
routine is put in input line IQ3. It also may be either positive or negative. 
Instruction RJ IQ IQ1 then performs the check and, if the absolute value of 
the number is not too large, puts the correct floating-point representation 
into IQ2 as the output. 
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Superior To Lower-Case Translation of Figures 


Input to this routine is one line of superscript figures packed starting 
at the left with 77 fillers at the right. No characters other than superscript 
figures are permitted. Thus periods are not allowed, and only integral figures 
are translated. Both the input and output are in excess-three decimal code. 

The input line, in2, becomes the output line on termination of the referencing 
instruction, RJ in ini. 

If the first character on the left is 77, no translation is performed. 

The input line, in effect, is untouched. 


If a character is not a figure or a 77, the error routine uz is refer¬ 
enced and there is a print-out: Sentence_(_). Disallowable 

Character in Exponent_. In the last blank is given the print-out of the 

character. This print-out occurs for every erroneous character in the line 
prior to the first 77. When a 77 is encountered, no further analysis or 
translation of the line occurs. What has been translated is packed at the left, 
and the balance of the line is retained the same as it was in the original 
input. 


663 



IF Control Routine 


03 

03 

rf* 



Entry 


Clearing output and 


Number of lines (34) 

temporary storage 


to v of first line 

lines 


of output 


Flow Charts for IF String-Out 


Set up 1st line of 
II divider routine 


Pseudo-op indicator 
to last line of out¬ 
put if within 
pseudo-op 


-0* 


Get next symbol 




Symbol 
to A 


Store 1st two symbol 
words in temporary 
storage 


Is symbol 

; if? 




IK Termination a . Routine 

T) 





No 

Set negative sign 

indicator 

V^V Yes i 

f Has an absolute 
l sign been used? 

\i) 1 



No 


Is symbol \ Yes s~\ 
A .? y p-<3) 


No 


_i_ 

/Has a first test \ 

( line number been V 
y supplied?_ y 


Yes/'Has a first test 
[relation been 
supplied? 


Yes 


Has the call 
word for X 
been given? 


No 


© 





Error reference and 
print-out: Sentence 

-(IF) space period 

occurs before suffi¬ 
cient data given 




[no 

''Has the call "N 
word for Y been 

V given? J 

) ' 


Yes 

Write completed 
data on tape 

X 



d> 


Set absolute sign 
indicator 



No 


Yes f Is symbol an 
absolute sign? 





3 


No 


Is 

symbol ( ? 



No 


Yes^i s symbol 
a constant? 



3 


No 


Is symbol a fixed 
point variable? 





54 


las an unconditiona 
number been given? 


T W^ S I 

—X yunder 


s the 
lause 
analysisl 





Has a second 
test line number 
been given? 



\ Ye 


Has a 2 na test 

relation indicator)— N.Q J 7 j 
been given? _/ 



D 


No 


Is symbol a floating 
point variable? 


Yes 

0 


Yes 



Gy- 


No 


Warning Print-out: 

Sentence_(IF) 

symbol 

rejected- 






























IE Constant Soutines 



Check if constant \ 
is a valid fixed - \ 

y 


point figure 


( Is X being 

examined? J 


Put constant indi¬ 
cator for X in 
output 



No 

f 

Put constant indi¬ 
cator for Y in 
output 


■*v 


X /"Is 7 > number _ Convert figu 

—*( of characters? floating poi 


Yes 


/Are number of 
[decimal points zero? 

Yes 

_sk_ 

| Storing fixed-pt. 
excess-three figure 
in temporary 


ire to 
int and 



Complement floating¬ 
point figure if 
negative sign indi- I -^^ 2 ) 


cator is set 


Get next 
symbol 


< Is symbol ^ j^/ 'ls Symbol ^ Ye^ 
e? 



Changing fixed-pt. 
number to a floating- 
pt. number, storing 
and setting floating¬ 
point indicator 


I No 

© 


Changing fixed-point 1 
figure to f loating-pt.^ 
storing, and setting 
floating-point indi¬ 
cator 


■ 0-4 


Get next 
symbol 


© 
4 N( 


K Is symbol "N 
10 ' ) 


J 

Yes 

Get next 
symbol 

_J 





( 9 


Is symbol made of 
superior figures?^ 


"of\ 

i? 


Check if symbol 
is a valid fixed 
point number 


Complementing Subroutine 


Is negative sign 
indicator set? 


y 7^7 


< 


Convert number 
to octal 


Complement floating-] 
point figure 


Convert no. to X3 
decimal lower case 
number 



f Is sign of exponent 
\, negative? 


No 



Convert scientific 
notation to a floating! 
point number 


/Complement floating-point 
'figure if negative sign 
1 indicator :1s set 

























































IH and IL Floating-Point Variable Routines 








O' 

O' 

03 





Is symbol an 
absolute sign? 


Is symbol an argument \ NoY Is symbol an argument ^ No I symbol 
variable of a function?/ ^constant of a function?/ * reject 

JfYes ^ vL Yes ^ 

0 © 


Warning Print-Out 
Sentence 
_ (IF) 


Has an open absolute 
sign been used? 


Error reference and 
print-out: Sentence 

_ (IF) Open 

absolute sign missing 












670 


Combination List Symbol Search Subroutine 



Yes 








Subroutine to put call word of subscript multiplier (not for a pseudo-op sub variable) to 
u of a storage line 



1-shot \ 
switch i-ump 
to 129) 


1-shot N 
switch^ ump 
to (31) 


Extract 3 r d multiplier 
from dimension list 


—5>(30) (29)—> 


Extract 1 st multi¬ 
plier from dimensionl 
list 



3 Subroutines to put call word of a subscript to v of a storage line: 


2 - Checking if fixed-point variable is in pseudo-op list and getting call word, if so. 



/is fixed-pt. variable^ Yes 
Hin pseudo-op list 


Call word to v of a 
temporary 










1-Handling subscript if a constant and checking if it is a fixed-point variable 





Sentence_(IF) Symbol Rejected_(Warning only) 
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3-Checking if fixed-point variable is in Combination List and, if not, 
adding it in. Call word to location. 



ID Print-Out Subroutine Sentence _ (IF) Inconsistent Sign Change 
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Sentence —(IF) Scientific Notation Incorrectly Written 



Sentence_(IF) Space Period Occurs Before Sufficient Data Given 



Sentence_(IF) Fixed- and Floating-Point Values Are Not Comparable 
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Sentence._(IF) Disallowable Character in Exponent 



Add character to 
last line of 
print-out 


Reference error 
routine and print: 
Sentence_(IF) 


Print-out: Disallow¬ 
able character in ex¬ 
ponent — 

Character put back in 
A before exit. 



Sentence_(IF) TO Should Follow JUMP (Warning only) 



Print: 
Sentence 

an _ 


Print: 

TO should follow 
JUMP 



Sentence_(IF) Set of Variables Differs From Initial Set 


Reference 

error 

routine 


Print: 
Sentence 
(IF) 


Print: Set of 
variables differs 
from initial set 












Sentence __(IF) Open Absolute Sign Missing 


Entry 


Reference 

error 

routine 


Print: 
Sentence 


O' 

-4 

O' 


Sentence_(IF) Comparison Symbols Ambiguous 


77 


Reference 

error 

routine 


Print: 

Sentence 

(IF) 
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Sentence _ 


(IF) Incorrectly Written 



Sentence.-(IF) Becomes Unconditional Jump to Sentence_(Warning only) 



(Warning only) 





Print: (NOT) 

Print: 

Sentence. 

(IF) 

- > 

Interpreted 
as (NOT EQUAL) 










II Divider Routine 


©H 


1-shot switch jump to 


Error reference and 

(341 On a second time 

■>(33)^ 

print-out: Sentence 


(IF) 

print-out (331 

Incorrectly written 





Store first relation 
symbol 


Start count of 
relation 


nt 0f , -/Get next \ - /l* symbol ^No _ f Is symbol No. 

symbol£ ~» \ symbol / - \ WOT? ) - 



Yes 

Store 2nd relation 
symbol 



Up count of relation 

symbols 




®H 


"3" indicator to 


Change count of 

lst-test output 


relation symbols 

line 


1 to 1 


“I’ indicator to 
lst-test output 

line 

/ 

Yes 


f Is 2nd reletion^^ 
^symbol J> ? 


"5" indicator to 
lst-test output linel 


Is 2nd relation 
symbol <C ? 


/"Is 1 st relation \ No 
l symbol NOT? 


> 


/Is 1 st relation 

symbol <? J 


) 


/'"is 2 nd relation 'N y 
^ symbol < ? 


*7“ Indicator to 
l st -test output 
line 


< Is 1 st relation \ 
symbol > ? ) 


K r\ /is 2" d relation Y es. 

y l symbol <. ? ) J 


f Is 2 nd relation 
. symbol > ? 


"5" indicator to 
ist-test output line 



-No 1- 

"6" indicator to 

ist-test output 

line 


*V 


Change count of 
relation symbols 
to 1 


'2'" indicator to 1 st - 
test output line 


( is 2 nd relation Yes 
symbol >■ ? j -» 


“6“ indicator to 
ist.test output 
line 


6 0 


\ No 

Transfer group of 

X data to new 
temporary location 


| Clear storage for | 

1 5 


| reception 

of 1 dataj 


J 



Yes f Is count of \ 

(relation symbols 2V J 


0H 


©H 


( Is 2 nd relation \_ 
symbol 


"6* indicator to 
st 

1 -test output 
line 


kD 


Is 2nd relation 
symbol > 1 


Put *5" indicator 
in l st -test output 
line 


KD 



No 

r 

Put "7" indicator 

in ist-test output 

line 



bi z“ 


Change count of 
ilation symbols 


& 


"4" indicator to 
1 st -test output 
line 


"2" indicator to 
ist-test output line 

_ Yes i 

* \ 



"4" indicator to 
ist-test output line 

Yes 

— -j 


c 1 



“3" indicator to 
ist-test output 
line 

Yes 

c 1 



< Is symbol A 


< Is symbol 

> 1 J 


( Is symbol b 

V * ) 


Warning Print-Out: 

Sentence_(IF) 

(NOT) interpreted as 
(NOT EQUAL) 


"6" indicator to 
jst-test output 
line 


2 to relation 
symbol counter 


© 
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X is fl. pt. var. 


/TT\ X a . fl ^~ P ° ln ^ \No *a floating- No^/ is Y a fixed -point ed Is Y a fixed- 'Nno^v 

variable? point constant? constant? J point variable? J - *[44) 


IJ Jump Routine 


( Get next\ 
symbol ) 


f Is Y a floating Y Ye j /T^\ 
(point constant?- J 



Yes 

Change Y 
point and 

to floating 
store 


s~s _ /~Get~iiext \ /^T« symbol yes_ 

symbol )-*( TO? J -"<) 


( Is Y a fixed-point* ^ No 

constant? J -*( p< 


Is Ya fixed- 
point variable? 


Warning Print-Out: 

Sentence __ 

(IF) TO should 
folio* JO HP 


Is symbol TO, Senten 
[ Staten, Line Number, 

\No., Sent.? /Yes 



Yes 

I Change Y 

to octal 1 

j and store j 




y'-*© 


Get call word for 
Y and store 


h® 


Transfer X and Y 
prepared data from 
temporary storage 
to buffer region 
output 




(^symbol 


Get call word for X 
and store in proper 
temporary location 


No 


f Is number of char 
( acters in symbol 
\_<C7? 


Put line number in 
standard form and 
store output 


H r Is X floating¬ 
point constant? 


~ \Ye^ Is Y fating- ^ No-/is Y fixed- 'N No ^/Ys 
y-^ point constant? variable?^ 


Y fixed-point 
constant? 


Error re fen 

print-out: 

ence and 
Sentence 
(IF) Incor- 
ten 

rectly writ 



,_ 


/"is X fixed-poi 
y constant? 


t?o 


Change Y to 
floating point 


/ Is Y floating¬ 
-point constant? 



Change X to floating 
point. 


I-*© 


f Is Y a fixed- 
(point constant? 


Change X to octal 
and store 


Change Y to octal 
and store 


Is Y a fixed-point 
variable? 



| No 
f 

Change X 
point and 

to floating 
store 




Change X to octal 
and store 


Floating-point input 
to preliminary number 
comparison routine 


Octal input to pre¬ 

liminary number 
comparison routine 


/Line number to 
- / reference list 


V 


( Get next \ r"N 
symbol P- w 


C Is symbol V 

c > / " ) 




/'is symbol "\ J 
(an IF? J 



No 

Error reference and 
print-out: Sentence 
(IF) 

Incorrectly written 

, 

, 
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Subroutine to change Y to floating point and store 



Subroutine to change X to floating point and store 















Subroutine to change X to octal and store 



Subroutine to change Y to octal and store 







IU - Initial Control for Second or Third Clause 


Set-up storing of 
absolute signs in more 
convenient location 


-*©H 


Clearing region of 
temporary storage 
and set-up of JC 
divider routine 


tet ” xt 
\ symbol 


Transfer 
symbol to A 


Put negative sign 
indicator in storage 



Has an absolute 
sign been used? 


> 


Yes 


Yes 


Put absolute 
indicator in 
temporary 


sign 



IT Preliminary Number Comparison Routine 



Store 1st two symbol 
words in temporary 
storage 


Is symbol a 
negative sign? 




No 


Yes f Is symbol an 

absolute sign? 



Warning Print-Out; 

Sentence __ 

(IF) symbol 
Rejected _ 




























IY Constant and Fixed-Point Variable Routine for Second or Third Clause 




















JB Floating-Point Variable Routine for Second or Third Clause 
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JC Relation Symbol Routines for Second or Third Clause 













05 

CD 

05 

























JI Subtoutine to Check Consistency of Relation Symbols and Assign Code Figures 
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Set up index 

for 

6 characters 





Extract a character 
from input line by 
shifting and masking 



Is character^. 

Yes 


No 


IN Superior Figure to Excess Three 
Lower-Case Figure Routines 



/Character index* 
( jump 


>0 


Left shift input- 
output line 6 
times 




Is character one 
of superior figures 


NO 


Print-Out: 


Disal- 


lowable character 
in exponent 


Put erroneous 
character back in 
output line 


r es 

By position of equal¬ 
ity in list, select a 
corresponding X3 dec¬ 
imal lower case 
figure that will rep¬ 
resent it 


Replace in input-out¬ 
put line the superior 
figure by its cor¬ 
responding lower-case 
X3 decimal figure 

"'"I .— 

t > 


n 





Character index 
jump 


>o 


H83 


<o 
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Flow Chart for IQ - Scientific Notation Evaluation Routine 








Is exponent 
negative? 


No 


Is 38 > 
exponent? 
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95 


Is 39 > absolute A No 
value of exponent? 



Yes 




Form a floating-point 
number equal to the 
power of 10 indicated 
by exponent 


Is 39 = 
Jexponent J ? 


No 


6 * 


Zero put in 
output line 


Yes. 


Is 201570121001> \ No 
fltpt. no. 


Yes 


Warning Print-Out: 
Sentence--- 


absolute value of num* 
ber too small -Given 
zero value 


\No 

Divide fltpt. no. by 

* 

10 and store back 



t _ 


Divide fltpt. no. by 
10^® and store back 


> 

L 


< 3 > 


Is exponent 

negative? 


No 


Yes 


Multiply fltpt. 
no. by power of 
10 and store 
back 



_ * _ 

Divide fltpt. no. 
by power of 10 
and store back 











IF STRING-OUT REGIONS 


RE 

SC4417 

Two auxiliary print-out routines 

RE 

IE4430 

Constant routine 

RE 

IF4565 

Control routine 

RE 

IG4631 

Fixed point variable routine 

RE 

IH4655 

Floating point variable routine 

RE 

II4777 

Relation symbol routine 

RE 

IJ5120 

Jump routine 

RE 

IK5316 

Termination space period routine 

RE 

IL5340 

Floating point variable routine 

RE 

IM5503 

Excess-Three Print-out storage 

RE 

IN5617 

Superior to lower-case figure routine 

RE 

105647 

Storage for "IN" 

RE 

IQ5676 

Scientific notation check 

RE 

IR6025 

Constants for IQ 

RE 

IS6037 

Three temps, for IQ 

RE 

IT6042 

Preliminary number comparison routine 

RE 

IU6105 

2nd control routine 

RE 

IY6141 

2nd constant and fixed-point variable routine 

RE 

JB6177 

2nd floating-point variable routine 

RE 

JC6261 

2nd relation symbol routine 

RE 

JF6305 

2nd jump routine 

RE 

JI6470 

Relation code assignment and consistency 

RE 

UF6614 

Constant storage 

RE 

ID6702 

Error print-out routines. 


String-Out Subroutine regions are also needed 
to assemble the IF tapes. 
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IF String-Out (Tape 1) 


Auxiliary Print-Out Routines 



IA 

SC 




0 

TP 

VN1 

WB3 ' 



1 

TP 

UF2 

WB5 


Assists in warning that ’"if" sentence to 

2 

TP 

WB10 

WB6 

r 

"lump" change has been made. 

3 

RJ 

WA 

WA12 



4 

MJ 

0 

30000. 



5 

TT1 

±r 

or* i a 

Tin o ^ 

uro 



6 

RJ 

UP2 

UP 

i 

► 

Prints symbol occurring in sentence at 

7 

MJ 

0 

30000 


point where analysis breaks down in 

10 

40 

SY2 

1 


Drint-out: Incorrectly written 


CA 

sen 







Control 

Routine 


IA 

IF 




0 

MJ 

0 

CT 


Exit 

1 

2 

RP 

TP 

10031 

UF7 

IF 3 1 
VN4 J 

\ 

Clearing lines to be used for output 

3 

4 

RP 

TP 

10031 

UF7 

IF5 ' 
VN71 j 

\ 

Clearing temporary storage lines 

5 

TP 

UF30 

VN 


Number of lines (34) to of VN 

6 

TV 

IF43 

II 


Setting up first line of relation routine. 

7 

10 

TP 

QJ 

TS4 

IF 11 

Q 

IF12 - 

\ 

Pseudo-op test 

11 

TP 

UF27 

VN33 


Pseudo-op indicator to VN33 

12 

RJ 

SY 

SY1 


Getting next symbol 

13 

TP 

SY2 

A 


Symbol to A 

14 

TP 

SY2 

VN75 ' 

l 

First 2 symbol output lines to 

15 

TP 

SY3 

VN76 . 

r 

temporary storage 

16 

EJ 

UF20 

IF12 

* 1 
; \ 


17 

EJ 

UF21 

IF 12 

Get next symbol. 

20 

EJ 

UF2 

IF12 

if J 


21 

EJ 

UF14 

IK A. 

Jump to space, period routine 

22 

EJ 

UF4 

IF35 


Jump to negative sign subroutine 

23 

EJ 

UF3 

IF41 

1 

Jump to absolute sign subroutine 

24 

EJ 

UF17 

IF12 

( 

Get next symbol 

25 

TP 

SY11 

Q 1 

L 

Is symbol a constant? If so, jump to 

26 

QJ 

IE 

IF27 - 

r 

constant routine, ie 

27 

TP 

SY10 

Q 

L 

Is symbol a fixed-point variable. If so, 

30 

QJ 

IG 

IF31 . 

r 

jump to IG, fixed-point variable routine 

31 

TP 

SY7 

Q 

i 

Is symbol a floating-point variable? 

32 

QJ 

IH 

IF33 - 

i 

Jump to IH 

33 

RJ 

ID 16 

ID13 


Sentence — (If) Symbol Rejected — 

34 

MJ 

0 

IF12 



35 

TP 

VN107 

Q 


Puts negativesign indicator in proper 

36 

QJ 

IF 12 

IF37 

► 

storage if an absolute sign has not 

37 

TP 

UF27 

VN106 . 


preceded it. 

40 

MJ 

0 

IF12 
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41 

TP 

UF27 

VN107 

42 

MJ 

0 

IF12 

43 

0 

0 

113 


CA 

IF44 



Puts absolute sign indicator in proper 
storage space 


Constant Routine 


IA 
0 RJ 


1 TP 

2 EJ 

3 TP 

4 MJ 

5 TP 

6 TP 

7 TJ 

10 TP 

11 TP 

12 RJ 

13 TP 

14 TP 

15 RJ 

16 TP 

17 EJ 

20 EJ 

21 RJ 

22 MJ 

23 TP 

24 QJ 

25 TN 

26 MJ 

27 TP 

30 ZJ 

31 TP 

32 RJ 

33 TP 

34 EJ 

35 EJ 

36 MJ 

37 TP 

40 TP 

41 RJ 

42 TP 

43 TP 

44 MJ 

45 RJ 

46 RJ 

47 TP 


IE 

RB 


II 

IE 134 
UF27 
0 

UF27 

SY5 

UF23 

VN75 

VN76 

GG2 

GG3 

UF27 

SY 

SY2 

UF 

UF1 

IE26 

0 

VN106 

IE25 

VN71 

0 

SY6 

IE10 

VN75 

SY 

SY2 

UF 

UF1 

0 

VN72 

UF31 

GG2 

GG3 

UF27 

0 

IE44 

SY 

SY2 


RBI 


A 1 

IE5 J 

VN31 

IE6 

VN32 

A ) 

IE27 J 

GG4 ' 

GG5 ■ 

GG 

VN71 

VN121 

SYl 

A 

IE46 
IE 102 
IE23 
IE117 

IE26 J 
VN71 

30000 

A 

IE31 

VN72 

SYl 

A 

IE45 

IE101 

IE117 

GG4 ' 

GG5 

GG 

VN71 . 
VN121 
30000 
IE37 

SYl 

A 


Checks if figure has 


1 or fewer. f s 
■ 12 or less characters 
.no letters 


Check if right of relation symbol 
Constant indicator for X figure to output 


Constant indicator for Y figure to output 
Is 7 > number of characters? 


Conversion of figure to floating point 


Floating-point output to proper storage 
Floating-point indicator to storage 
Get next symbol 

Is symbol an e? 

Is symbol a * ? 

Jump to negative-value subroutine 


Is negative value desired? 

Changing floating point figure to negative 
figure 


Are number of decimal points zero? 

Storing fixed-point X3 figure 
Getting next symbol 

Is e next symbol? 

Is * next symbol? 

Continuation beyond scientific-notation 
analysis 

Changing fixed-point X3 decimal figure to 
a floating-point number 

Floating-point indicator to storage 

Changing fixed-point no. to a floating¬ 
point no. 

Getting next symbol 
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50 

EJ 

UF4 

IEI12 

Is symbol a negative sign? 

51 

EJ 

UF5 

IE112 

Is symbol a superior negative sign? 

52 

TP 

SY11 

Q 

Is symbol a figure? 

53 

n.T 

X ” 

IE54 

ID42 

TP nnt i nt — mi t _ _ C/>ion+ifi/« 

— ** v v | ^ m vvn v* k/v -ivn j.i 

notation incorrectly written 

54 

TP 

SY2 

VN100 

Storing figure 

55 

TP 

SY13 

Q 1 

1 Is symbol an exponent figure? if not, go 

56 

QJ 

IE57 

IE63 J 

' directly to X3 decimal to octal conversion 

at IE63 

57 

TP 

SY2 

IN2 1 

[ Conversion of exponent to X3 decimal 

60 

RJ 

IN 

INI J 

61 

62 

TP 

MJ 

IN2 

0 

RS4 1 
IE65 J 

figure 

[■ Output to RS 4 and jump to octal 

conversion routine 

63 

RJ 

RD 

RD1 

Check if symbol is a legitimate fixed-point 
figure 

64 

TP 

SY2 

RS4 1 

\ Conversion of figure to octal 

65 

RJ 

RS2 

RS J 

66 

67 

TP 

QJ 

VN77 

IE70 

Q 1 
IE 72 J 

\ Check if sign of figure is negative 

70 

TN 

RS3 

IQ3 

Complementing figure and putting into 
scientific notation routine input 

71 

MJ 

0 

IE73 

72 

TP 

RS3 

IQ3 

Figure to input of scientific notation routine 

73 

TP 

VN71 

IQ2 

Floating-point figure to input of IQ 
scientific notation routine 

74 

MJ 

0 

IE75 

Dummy j limp (replaces a discarded instruction) 

75 

RJ 

IQ 

IQ1 

Check of scientific notation figures and 
converts to floating point 

76 

TP 

IQ2 

VN71 

Output to storage 

77 

RJ 

IE26 

IE23 

Changing output to negative if desired 

100 

MJ 

0 

IE115 

Continuation beyond scientific notation 

101 

RJ 

IE44 

IE37 

Changing fixed point to floating point no. 

102 

RJ 

SY 

SY1 

Getting next symbol 

103 

TP 

SY2 

A 


104 

EJ 

UF22 

IE 106 

Is next symbol a 10? 

105 

MJ 

0 

ID42 

Print-out: Sentence — Scientific notation 
incorrectly written 

106 

RJ 

SY 

SY1 

Getting next symbol 

107 

TP 

SY2 

A 


110 

EJ 

UF25 

IE46 

Is symbol = POW? 

111 

MJ 

0 

IE50 

If not, jump to other equality tests. 

112 

TP 

UF27 

VN77 

Negative sign indicator storage for exponent 

113 

RJ 

SY 

SY1 

Getting next symbol 

114 

MJ 

0 

IE52 


115 

RJ 

SY 

SY1 

Getting next symbol 

116 

TP 

SY2 

A 


117 

EJ 

UF3 

IE 130 

Is symbol an absolute sign? 

120 

121 

RP 

EJ 

20004 

UF16 

IE1221 
IE115 J 

\ Is symbol ) ( , ; ? 

122 

RP 

20004 

IE1241 

L If symbol is <>.... = NOT jump to II rela¬ 

123 

EJ 

UF10 

II J 

tion symbol routine 
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124 EJ UF15 IJ If symbol is JUMP, go to IJ jump routine 

125 EJ UF14 IK A. exit 

126 RJ ID16 ID13 Print-out: Sentence — Symbol Rejected — 

127 MJ 0 IE115 

130 TP VN107 Q Has an open absolute sign been encountered? 

131 QJ IE115 IE132I If not, reference error routine and print- 

132 RJ ID56 ID52 J out: Sentence- -Open absolute sign missing. 

133 MJ 0 IE115 

134 RJ II III 

CA IE135 

Fixed-Point Variable Routine 

Fixed-point IA IG 

variable 0 RJ RH RH1 

routine - 1 TP UF27 VN74 

1st letter 2 TP TS4 Q 1 

i f j f k,l, or 3 QJ IG4 IG10 J 

m 4 RJ TS TSl 

5 MJ 0 IG10 

6 TP TS3 VN110 

7 MJ 0 IE115 

10 RJ TA TA1 

11 MJ 0 IG14 

12 TP TA4 VN110 

13 MJ 0 IE115 

14 RJ TK TK1 

15 AT UF32 VN110 

16 TP UF33 TF 

17 TP SY2 TF1 

20 TP A TF2 

21 TP UF7 TF3 

22 RJ TE TE1 

23 MJ 0 IE115 

CA IG24 

Floating-Point Variable Routine 


Set-ups 


Check if valid variable. 

Check if within pseudo-operation 


IA 
0 TV 

1 TV 

2 TV 

3 TV 

4 TV 

5 TV 

6 TV 

7 TV 

10 RJ 

11 TP 

12 QJ 


IH 

IL136 

IL136 

I LI 36 

IL131 

IL132 

IL132 

IL137 

I LI 40 

RH 

TS4 

IH13 


IL40 

IL20 

IL32 

IL61 , 

IL56 

IL53 

IL112 

IL113 

RHl 

Q \ 
IH61 J 


Check if symbol is a valid variable 
Set fixed-point variable indicator 

Is "if” sentence within Pseudo-Operation 

Is symbol in Pseudo-Op list? 

No 

Yes. Pseudo-Op call word to location 

Is symbol in Combination List? 

No 

Yes 

Exit for terminating characters before 
a divide or jump 

Get next call word of 64, 65, 66 type 
Adding in 64000 (fixed-point variable call- 
word base) 

Building up file for addition of item 
to Combination List 

Adding file to Combination List 

Exit for terminating characters before a 

divide or jump 
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Within 

13 

RJ 

TS 

TSl 

Pseudo- 

14 

MJ 

0 

IH46 

Op 

15 

TP 

TS3 

VNllO 

16 

ip 

UF34 

A 


17 

TJ 

VNllO 

IH21 

Ps-Op 

Sub. Var. 

20 

MJ 

0 

IL64 

21 

22 

TP 

QT 

DF37 

VNllO 

Q 

VN105 


23 

LQ 

VN105 

36 


24 

RS 

Q 

UF6 


25 

TP 

Q 

VN115 


26 

TP 

0F4G 

A 

V 


27 

QT 

VNllO 

A 


30 

SA 

UF41 

17 


31 

TP 

A 

VN73 


32 

LQ 

VN105 

A17 


33 

AT 

VN73 

A 


34 

TU 

A 

VN105 


35 

TP 

VN115 

A 


36 

ZJ 

IH37 

IH41 


37 

RA 

VN73 

DF42 


40 

RJ 

IL60 

IL56 


41 

RJ 

IL25 

IL 


42 

RJ 

IL33 

IL26 


43 

RJ 

IL52 

IL34 


44 

IJ 

VN115 

IH36 

45 

MJ 

0 

IE115 

46 

TV 

3L141 

IL20 

47 

TV 

IL141 

IL40 

50 

TV 

IL141 

IL32 

51 

RJ 

IH121 

IH72 

52 

ZJ 

IH53 

IH54 

53 

RJ 

IL130 

IL112 

54 

RJ 

IL25 

IL 


55 

RJ 

IL33 

IL26 

56 

RJ 

IL52 

IL34 


Is symbol in pseudo-op list? 

No 

Yes. Call word to temporary location 
Is call word > 76000? 

Exit subroutine 

Number of subscripts to (vnl05) y 
Subscript index set up 
630 BR to A u 


630 (RR + no. subscripts), call word 
of modulus, to (vnl05) u 

Is subscript index zero? 

Call word of multiplier formed in 
(vn73) u 

Multiplier call word to u of proper 
location 

Handling subscript as constant & 
checking on variable. 

Checking if fixed-point variable is 
in pseudo-op list and getting call 
word, if so 

Checking if fixed-point variable is in 
combination List and, if not, adding 
it in. Call word to location. 


Check if symbol is in Comb. List and, 
if not, adding it in 
Is index vnll5 zero? 

Call word for multiplier to location 
Constant or fixed-point variable sub¬ 
script to location. Constant call wd 
to location. 

Search for call word of var. in 
pseudo-op list 

Search for call word of var. in Comb. 
List and adding it in if not found 
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57 

IJ 

VN115 

IH52 

60 

MJ 

0 

3E115 

Not within 

61 

TV 

IL142 

IL20 

Pseudo-Op 

62 

TV 

IL142 

IL40 


63 

RJ 

IH121 

IH72 


64 

ZJ 

IH65 

IH66 


65 

RJ 

IL130 

IL112 


66 

RJ 

IL25 

IL 


67 

RJ 

IL52 

IL34 


70 

IJ 

VN115 

IH64 


. 71 

MJ 

0 

IE115 

72 

RJ 

TA 

TAl 

73 

MJ 

0 

IH100 

74 

TP 

TA4 

VN110 

75 

TP 

OF 36 

A 

76 

TJ 

VN110 

IH110 

77 

MJ 

0 

IL64 

100 

RJ 

TK 

TK1 

101 

AT 

0F43 

VN110 

102 

TP 

OF33 

TF 

103 

TP 

SY2 

TFl 

104 

TP 

A 

TF2 

105 

TP 

0F7 

TF3 

106 

RJ 

TE 

TE1 

107 

MJ 

0 

IE115 

110 

TP 

0F44 

Q 

111 

QT 

TA5 

VN105 

112 

ST 

0F6 

VN115 

113 

TP 

0F45 

Q 

114 

QT 

TA5 

A 

115 

LQ 

A 

25 

116 

RJ 

GW 

GWl 

117 

TO 

A 

VN105 

120 

TP 

VN115 

A 

121 

MJ 

0 

30000 


CA 

IH122 



Check if symbol is in Comb. List and, 
if not, adding it in 
Is subscript index zero? 

Call word for multiplier to location 
Handling subscripts as constant 
& checking on variable 
Checking if fixed-point variable is 
in Comb. List and, if not, adding it 
in. Call word to location. 


Check if symbol is in Combination List 
Not in 

Is in. Putting call word into loca- 
tion 

Check if symbol is a subscripted var¬ 
iable of 77 — type 

To get call word of 64, 65, 66 types 
Adding in 65000 (has to be fl. pt. 
var.) and storing 


Adding file to Combination List 


Number of subscripts to (vnl05) v 
Setting up index 

Modulus to A y 

Call word of modulus to (vnl05)u 
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0 

RJ 

JLIu 

SY 

SYl 


1 

TP 

SY2 

A 


2 

RP 

20004 

IL4 1 


3 

EJ 

0F16 

IL 3 


4 

TP 

SYl 1 

Q \ 


5 

QJ 

IL6 

IL21 J 


6 

TP 

SYl 3 

Q 


7 

QJ 

IJ12 

IL10 

Subscript 

10 

RJ 

RD 

RDl 

a constant* 

11 

RJ 

IL63 

IL61 


12 

TP 

SY2 

RS4 1 


13 

RJ 

RS2 

RS I 


14 

TP 

RS3 

A \ 


15 

RJ 

GW 

GWl J 


16 

TU 

DF35 

IL53 \ 


17 

RJ 

IL55 

IL53 J 


.20 

MJ 

0 

LIH44] 



21 

TP 

SYlO 

Q 


22 

QJ 

IL23 

IJ12. 

Subscript 

23 

RJ 

RH 

RH1 

a fixed- • 

24 

RJ 

IL63 

IL61 

point 

25 

MJ 

0 

30000 

variable 

26 

RJ 

TS 

TS1 


27 

MJ 

0 

IL33 

Getting 

'30 

TO 

IL135 

IL53 

call word 

31 

RJ 

IL55 

IL53 

for var. 

32 

MJ 

0 

[IH44] 

in pseudo¬ 

.33 

MJ 

0 

30000 

op list 

34 

RJ 

TA 

TAl 


35 

MJ 

0 

IL41 


Getting next symbol 

Is symbol )(.,;? 

Is symbol a constant? 

If symbol is a superior figure, error 
ref. and print-out occurs: Sentence 
— (If) Incorrectly Written — 

Check for validity of fixed-point 
constant 

Put constant in temporary location 
Converting constant to octal 

Getting call word for constant 

Constant call word to temp, location 

Jump index check for subscripts of 
pseudo ops. IH57 or IH70 in v 
occasionally 

Test if symbol is a fixed-point var¬ 
iable. If not, error print: Sentence 
incorrectly written — 

Check for validity of variable 
Variable to temp, location 


Check if variable is in pseudo-op 
list 

Not in list 

Is in list. Putting call word in 
location 
Or IH 57 in v 


Check if fixed-point variable is in 
Combination List 
Not in list 
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Getting 

36 

TU 

IL134 

IL53 

call word 

37 

RJ 

IL55 

IL53 

for var. 
in Comb. 

40 

'll 

MJ 

0 

|IH44] 

List f~ 

RJ 

TK 

TK1 

Putting 

42 

AT 

UF32 

TF2 

call word 

43 

TP 

UF33 

TF 

for var. 

44 

TP 

SY2 

TF1 

in Comb. 

45 

TP 

UF7 

TF3 

List and 

46 

RJ 

IE 

TE1 

temp. 

47 

TP 

TF2 

Q 

location 

50 

TU 

UF35 

IL53 \ 


51 

RJ 

IL55 

IL53 J 


.52 

MJ 

0 

30000 


53 

TV 

[Q] 

[VN 111] \ 


54 

RA 

IL53 

UF6 J 


55 

MJ 

0 

30000 


56 

TU 

VN73 

[VNlll] 1 


57 

RA 

IL56 

UF6 


60 

MJ 

0 

30000 . 


61 

TP 

SY2 

[VN101] ' 


62 

RA 

IL 61 

UF6 


63 

MJ 

0 

30000 . 


64 

TP 

VN110 

A 

Exit 

65 

TJ 

UF46 

IL67 

subroutine 

66 

TJ 

UF47 

IE115 


67 

RJ 

SY 

SYl 


70 

TP 

SY2 

A 


71 

RP 

20004 

IL72 \ 


72 

EJ 

UF16 

IL67 J 


73 

EJ 

UF3 

IL106 


74 

RP 

20004 

IL76 1 


75 

EF 

UF10 

II J 


76 

EJ 

UF15 

IJ 


77 

EJ 

UF14 

IK 


100 

TP 

SY7 

Q V 


101 

QJ 

IL67 

IL102 J 


102 

TP 

SYll 

Q l 


103 

QJ 

IL67 

IL104 J 


104 

RJ 

ID16 

ID13 


.105 

MJ 

0 

IL67 


106 

TP 

VN107 

Q 1 

Check for 

107 

QJ 

IL67 

ILllO J 

open ab- * 
solute 

110 

RJ 

ID56 

ID52 

sign 

111 

MJ 

0 

IL67 


112 

RJ 

IL112 

[IL117] 


113 

RJ 

IL113 

[IL122] 


114 

TP 

UF44 

Q 


115 

QT 

TA7 

A 


116 

MJ 

0 

IL125 


Is in List 

Call word to location 

Jump to subscript index for pseudo-op. 

(IH57 or IH70 in v occasionally) 

To get call word (next) of 64, 65, 66 
Adding in 64000 

Adding variable and call word to 
Combination List 


Putting call word in location 


Call word to location 


Call word for multiplier to location 


Storage of X3 for subscripts 


Is it a dummy function ? 

Is it not a function? 

Get next symbol 

( ) , ; checks 
I sign check 

< > = NOT 

JUMP 

A . 

Test if symbol is a variable used as 
argument of single-valued function 
Test if symbol is a constant used as 
argument of single-valued function 
Error Print: Symbol Rejected — 

Test if there has been an open abso¬ 
lute sign 

Error print: Open absolute sign 
missing 

1-shot switch 
l-shot switch 
3rd Multiplier —> A 


700 



117 

TP 

UF44 

Q ] 

1st Multiplier —>A 

120 

QT 

TA6 

A J 


121 

MJ 

0 

IL125 

122 

TP 

IJF45 

Q 1 


123 

QT 

TA6 

A 

-■ 2nd Multiplier —>A 

124 

LQ 

A 

25 . 


125 

126 

RJ 

TU 

GW 

A 

GW1 ] 
VN73J 

► Call word for multiplier to (VN73) U 

127 

RJ 

IL60 

IL56 

Call word to proper temporary loca¬ 
tion 

130 

MJ 

0 

30000 

131 

0 

0 

VN101 

132 

0 

0 

VN111 

133 

0 

VN73 

0 


134 

0 

TA4 

0 


135 

0 

TS3 

0 

Pseudo-op list routine location 

136 

0 

0 

IH44 


137 

0 

0 

IL117 

140 

0 

0 

IL122 

141 

0 

0 

IH57 


142 

0 

0 

IH70 



CA 

IL143 






Relation Symbol Routine 


IA 

rr 



0 

RJ 

ri 

113 


1 

RJ 

ID40 

ID34 

Error Print: Sentence (IF) Incor¬ 
rectly written — 

2 

MJ 

0 

IF 


3 

TP 

A 

VN117 Store 1st relation symbol 

4 

TP 

UF6 

VN116 Start count of relation symbols 

5 

RJ 

SY 

SYl 

Get next symbol 

6 

TP 

SY2 

A 


7 

RP 

20003 

1113 

? . . _ . . 

10 

EJ 

UF10 

1111 

j < ^ = rests 

11 

TP 

A 

VN120 Store 2nd relation symbol 

12 

RA 

VN116 

DF6 

Dp count of relation symbols 

13 

EJ 

UF13 

III 

Not? 

14 

RP 

30031 

ni6' 

| Transfer block of X data to new tem¬ 

15 

TP 

VN71 

VN40. 

porary location 

16 

17 

RP 

TP 

10031 

UF7 

1120' 
VN71. 

J- Clearing storage for reception of Y 

data 

20 

21 

TP 

EJ 

VN65 

UF26 

A 

1141. 

f Ts count of relation symbols equal 

to 2? 
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One 

22 

TP 

VN66 

A 



relation 

23 

EJ 

UFlO 

ri27 

> 

< 


symbol 

24 

EJ 

UFll 

1131 

> 

>Symbol tests 

25 

EJ 

UF12 

ri33 

= 


26 

MJ 

0 

1135 

NOT, 


27 

TP 

0F26 

VN4 

<£ ”2" indicator to output 

30 

MJ 

0 

IF13 

Return to if control routine to 





examine symbol not used • 

31 

TP 

UF61 

VN4 

> 

M 4 W indicator to output 

32 

MJ 

0 

JF13 



33 

TP 

DF60 

VN4 

— We 

— «. 

indicator to output 

34 

MJ 

0 

IF13 



35 

RJ 

ID121 

ID116 

Sentence — NOT interpreted as NOT 





EQUAL 

36 

TP 

UF63 

VN4 

NOT 

= 6* indicator to output 

37 

TP 

UF26 

VN65 

Putting 2 in relation-symbol counter 

40 

MJ 

0 

IF13 



When there 

41 

TP 

VN66 

A 



are two 

42 

EJ 

CF13 

1146 

NOT? 

relation 

43 

EJ 

UFlO 

1160 

< ? 


symbols 

44 

EJ 

UFll 

ri73 

> ? 


45 

MJ 

0 

rrio6 

= 


NOT | 

[46 

TP 

VN67 

A 



J 

147 

EJ 

UFlO 

1152 

< ? 



50 

EJ 

UFll 

3T54 

> ? 



151 

MJ 

0 

TT56 

= 


52 

TP 

UF64 

VN4 

NOT< indicator H 7” to output line for 





1st 

test 

53 

MJ 

0 

IF12 

Return to if control routine to get 





next symbol 

54 

TP 

UF62 

VN4 

NOT 

> indicator 5 to output line 





for 

1st test 

55 

MJ 

0 

IF12 



56 

TP 

UF63 

VN4 

NOT 

= indicator n 6 M to output line 





for 

1st test 

57 

MJ 

0 

IF12 



< 

60 

TP 

VN67 

A 



61 

EJ 

UFlO 

1X64 

«? 


62 

EJ 

UFll 

1167 

<>? 


63 

MJ 

0 

im 

< = 


64 

TP 

UF6 

VN65 

« 


65 

TP 

UF26 

VN4 



66 

MJ 

0 

IF12 



67 

TP 

UF63 

VN4 

oor NOT = indicator ”6 M to output 

70 

MJ 

0 

IF12 



71 

TP 

UF62 

VN4 

<=indicator M 5 M to output 

72 

MJ 

0 

IF12 



> 

73 

TP 

VN67 

A 



74 

EJ 

UFlO 

IH7 

X? 


75 

EJ 

UFll 

moi 

»? 
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76 

MJ 

0 

II104 


77 

TP 

DF63 

VN4 


100 

MJ 

0 

IF12 


101 

TP 

0F6 

VN65 


102 

TP 

UF61 

VN4 


103 

MJ 

0 

m2 


104 

TP 

UF64 

VN4 


105 

MJ 

0 

m2 

= 

106 

TP 

VN67 

A 


107 

EJ 

UF10 

11112 


110 

C T 

i 

Uf 11 

TTi 1 4 

11114 


111 

MJ 

0 

in 16 


112 

TP 

UF62 

VN4 


113 

MJ 

0 

m2 


114 

TP 

DF64 

VN4 


115 

MJ 

0 

m2 


116 

TP 

DF6 

VN65 


117 

TP 

UF60 

VN4 


120 

MJ 

0 

m2 



CA 

II121 




Relation Symbol Code 



IA 

JI 



0 

MJ 

0 

30000 


1 

TP 

UF7 

JT123 

Relation 

2 

TP 

VN6 

A V 

symbols 

3 

ZJ 

J14 

JI21 J 

in vn4 and 
vn6 

4 

TP 

VN142 

a v 

5 

EJ 

DF26 

JI12 J 


6 

TP 

VN143 

A 

1 in 

7 

EJ 

UF10 

JI13 

vnl42 

10 

EJ 

UFll 

JI15 

count 

11 

EJ 

UF12 

JI17 


12 

MJ 

0 

ID103 


13 

TP 

UF26 

JT123 


14 

MJ 

0 

JT 


15 

TP 

DF61 

JI123 


16 

MJ 

0 

JI 


17 

TP 

UF60 

JI123 


20 

MJ 

0 

Jr 1 


21 

TP 

VN65 

A i 


22 

EJ 

UF26 

JI4 J 


23 

TP 

VN142 

A i 

1 in vn4 

2 coming 
up 

24 

EJ 

UF26 

JI44 J 


> = 

NOT = indicator "6” to output 

» Count of relation symbols reduced 
to 1 

Indicator "4" to output 
> = indicator ”7" to output 


= < ? 


= < indicator ”5” to output 

= > indicator ”7” to output 

= = Count of relation symbols reduced 
to 1 

Indicator ”3” to output 


Assignment and Consistency Routine 


Clearing temporary 

Has a 2nd-test relation symbol been 
supplied? 

Is the count of relation symbols 2? 

< ? 

> ? 

= ? 

Error Print: Comparison symbols 
ambiguous 

< Indicator ”2” to temporary 

> Indicator "4” to temporary 

= Indicator "3" to temporary 

If 2 relation symbols in 1st part of 
if or in vn4, go to above 

Is the current count of relation 
symbols 2? 


703 




25 

TP 

VN143 

A 

1 in vn4 

1 coming 
up to go 
in vn6 

26 

EJ 

UF10 

JI32 

27 

30 

31 

32 

EJ 

EJ 

MJ 

TP 

UFll 

UF12 

0 

UF26 

JI34 

JI36 

JI40 

VN6 


33 

MJ 

0 

JI 


34 

TP 

UF61 

VN6 


35 

MJ 

0 

JI 


36 

TP 

UF60 

VN6 


37 

MJ 

0 

JI 


40 

TP 

UF63 

JI123 


41 

TP 

UF26 

VN142 


42 

RJ 

ID121 

ID116 


43 

MJ 

0 

JI 

2 relation 

44 

TP 

VN143 

A 

symbols. 

45 

EJ 

UF10 

JI62 

Nothing 

46 

EJ 

UFll 

JI110 

in vn6, 

47 

EJ 

UF12 

JI75 

1 in vn4 

50 

TP 

VN144 

A 


51 

EJ 

UF10 

JI54 


52 

EJ 

UFll 

JI56 


53 

MJ 

0 

JI60 


54 

TP 

UF64 

JI123 


55 

MJ 

0 

JI 


56 

TP 

UF62 

JI123 


57 

MJ 

0 

JI 


60 

TP 

UF63 

JI123 


61 

MJ 

0 

JI 


62 

TP 

VN144 

A 


63 

EJ 

UF10 

JI66 


64 

EJ 

UFll 

JI71 


65 

MJ 

0 

JI73 

1 in vn 4 

66 

TP 

UF6 

VN142 

1 in vn 6 

67 

TP 

UF26 

VN6 


70 

MJ 

0 

JI 


71 

TP 

UF63 

JI123 


72 

MJ 

0 

JI 


73 

TP 

UF62 

JI123 


74 

MJ 

0 

JI 


75 

TP 

VN144 

A 


76 

EJ 

UF10 

JI101 


77 

EJ 

UFll 

JI103 


100 

MJ 

0 

JI105 


101 

TP 

UF62 

JI123 


102 

MJ 

0 

OT 


103 

TP 

UF64 

JI123 


< ? 

> ? 

= ? 

NOT 

< Indicator ”2" to 2nd test output 
line 

> Indicator ”4” to 2nd test output 
line 

= Indicator ”3” to 2nd test output 
line 

”NOT M occurring alone was miscounted 
as one. Recounted as 2 

Print: NOT interpreted as NOT EQUAL 


< ? 

> ? 

= ? 

NOT 

NOT < ? 

NOT > ? 

NOT = 

NOT <Indicator "7" to temporary 
NOT > Indicator ”5” to temporary 
NOT = Indicator "6 M to temporary 


< < ? 

< > ? 

< = 

< < Correction of 2 count to 1 count 

Indicator M 2" in 2nd test output 
line 

<> Indicator M 6" to temporary 

< = Indicator "5” to temporary 


= < ? 

= > ? 

= < Indicator ”5” to temporary 
= > Indicator ”7” to temporary 


704 






104 

MJ 

0 

JI 


1 

in 

vn4 

105 

TP 

DF6 

VN142 

= =1 Correction of 2 count to 1 

1 

in 

vn6 

106 

TP 

DF60 

VN6 

>count.Indicator 3 to 2nd test 
J output line 




107 

MJ 

0 

JT 





110 

TP 

VN144 

A 





111 

EJ 

OFlO 

JI114 

>< ? 




112 

EJ 

UF11 

JT116 

>> ? 




113 

MJ 

0 

JT121 

> = 




114 

TP 

UF63 

JT123 

< > Indicator 6 to temporary 




115 

MJ 

0 

JT 


1 

in 

vn4 

116 

T p 

UF6 

VN142 

>> ] Corr. of 2 count to 1 

1 

in 

vn6 

117 

TP 

UF61 

VN6 

^Indicator ”4" to 2nd test 

J output line 




120 

MJ 

0 

JT 





121 

TP 

UF64 

JT123 

> = Indicator ”7” to temporary 




122 

MJ 

0 

JI 




123 

0 

0 

0 






CA 

JT124 




Constant Storage 


0 

IA 

30 

OF 

77777 

77777 

e 

1 

56 

77777 

77777 

* 

2 

34 

31777 

77777 

if 

3 

42 

77777 

77777 

1 

4 

02 

77777 

77777 

- 

5 

00 

77777 

77777 

V 

6 

0 

0 

1 

7 

0 

0 

0 


10 

37 

77777 

77777 

< 

11 

16 

77777 

77777 

> 

12 

76 

77777 

77777 

= 

13 

50 

51667 

77777 

NOT 

14 

01 

22777 

77777 

A . 

15 

44 

67475 

27777 

JUMP 

16 

43 

77777 

77777 

) 

17 

17 

77777 

77777 

( 

20 

21 

77777 

77777 

t 

21 

23 

77777 

77777 

t 

22 

04 

03777 

77777 

10 

23 

0 

0 

7 


24 

0 

0 

14 

12 

25 

52 

51717 

77777 

POW 

26 

0 

0 

2 

< 

27 

40 

0 

0 


30 

0 

0 

34 


31 

77 

77777 

77777 


32 

0 

0 

64000 


33 

0 

3 

3 


34 

0 

0 

76000 



705 



35 

0 

31000 

0 


36 

0 

0 

76777 


37 

0 

0 

00700 


40 

0 

0 

00077 


41 

0 

0 

63000 


42 

0 

1 

0 


43 

0 

0 

65000 


44 

0 

0 

77777 


45 

0 

77777 

0 


46 

0 

0 

62000 


47 

0 

0 

66000 


50 

0 

0 

11 

9 

51 

66 

51777 

77777 

TO 

52 

65 

30506 

63050 

SENTEN 

53 

65 

66246 

63047 

STATEM 

54 

46 

34503 

07777 

LINE 

55 

50 

67472 

53054 

NUMBER 

56 

50 

51227 

77777 

NO. 

57 

65 

30506 

62277 

SENT. 

60 

0 

0 

3 

— 

61 

0 

0 

4 

> 

62 

0 

0 

5 

< 

63 

0 

0 

6 

NOT = 

64 

0 

0 

7 

> 

65 

0 

0 

10 



CA 

UF66 
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If String-Out (Tape 2) 


Error Print-Out Routines 



IA 

ID 





0 

TP 

SY2 

ID22 

] 


Storing rejected symbol and referencing 

1 

RJ 

WA 

WA2 


> 

sentence number routine 

2 

MJ 

0 

30000 

J 



3 

RJ 

WA 

WAl 




4 

TP 

ID7 

UP 3 


1 

Sentence — (If) 

5 

RJ 

UP 2 

UP 


> 

Inconsistent sign change 

6 

MJ 

0 

IF 


! 


7 

40 

IM3 

4 

> 

j 

Error routine referenced 

10 

40 

ID17 

4 




11 

0 

IM 

3 




12 

0 

0 

0 




13 

RJ 

ID2 

ID 

> 



14 

TP 

ID10 

UP 3 



Sentence — (If) Symbol Rejected — 

15 

RJ 

UP2 

UP 




16 

MJ 

0 

30000 




17 

65 

73472 

55146 




20 

01 

54304 

43026 




21 

66 

30270 

10101 



Warning only 

22 

0 

0 

0 

> 



23 

TP 

A 

ID33 

' 



24 

AT 

IM16 

IM15 




25 

RJ 

WA 

WAl 



Sentence — ( ) Disallowable char- 

26 

TP 

ID32 

UP 3 



acter in exponent 

27 

RJ 

UP 2 

UP 


> 


30 

TP 

ID33 

A 




31 

MJ 

0 

30000 




32 

40 

IM7 

7 




33 

0 

0 

0 



Error routine referenced 

34 

RJ 

WA 

WAl 




35 

TP 

ID41 

UP 3 



Sentence — (If) Incorrectly Written 

36 

RJ 

UP 2 

UP 


> 


37 

RJ 

SC 7 

SC 5 




40 

MJ 

0 

30000 

! 



41 

40 

IM17 

4 

J 


Error routine referenced 

42 

RJ 

WA 

WA2 

> 



43 

TP 

ID51 

UPS 




44 

RJ 

UP2 

UP 



Sentence — (If) Scientific notation 

45 

TP 

ID41 

UP 3 


> 

Incorrectly written 

46 

RJ 

UP 2 

UP 



47 

RJ 

UZ 

UZ1 



Error routine referenced 

50 

MJ 

0 

IF 




51 

40 

IM23 

4 

4 



52 

RJ 

UZ 

UZ1 

> 



53 

RJ 

WA 

WA2 



Sentence — (If) Open absolute sign 

54 

TP 

ID57 

UP3 



missing 

55 

RJ 

UP2 

UP 


> 


56 

MJ 

0 

30000 




57 

40 

IM27 

5 

J 


Error routine referenced 


707 



60 

RJ 

WA 

WA2 


61 

TP 

ID64 

UP 3 

Sentence — (If) "To” should follow 





> "Jump" 

62 

RJ 

UP 2 

UP 

Warning only 

63 

MJ 

0 

30000 


64 

40 

IM34 

4 J 


65 

RJ 

SC4 

SC ^ 


66 

TP 

VN4 

IM47 

Sentence — (If) becomes unconditional 

67 

TP 

ID72 

UP 3 

Jump to Sentence 

70 

RJ 

UP2 

UP 

^ | * 1 1 1 * 1 ' 

71 

MJ 

0 

30000 

Warning only 

72 

40 

IM40 

10 J 


73 

RJ 

WA 

WA2 


74 

TP 

ID100 

UP 3 

Sentence — (If) Space period occurs 

75 

RJ 

UP2 

UP 

before sufficient data given 

76 

RJ 

uz 

UZ1 

" Reference error routine 

77 

MJ 

0 

30000 


100 

40 

IM50 

11 J 


101 

40 

IM61 

7 


102 

40 

IM70 

5 1 


103 

RJ 

UZ 

UZ1 

Sentence — (If) Comparison symbols 

104 

RJ 

WA 

WA2 

> ambiguous 

105 

TP 

ID102 

UP 3 


106 

RJ 

UP 2 

UP 

Error routine referenced. Terminate 

107 

MJ 

0 

IF J 

analysis of sentence 

110 

RJ 

UZ 

UZ1 ^ 


111 

RJ 

WA 

WA2 

Sentence — (If) Set of variables differs 

112 

TP 

ID101 

UP 3 

> From Initial Set 

113 

RJ 

UP2 

UP 


114 

MJ 

0 

IF 

Error routine referenced. Analysis 

115 

40 

IM75 

6 ^ 

of sentence terminated. 

116 

RJ 

WA 

WA2 


117 

TP 

ID115 

UP 3 

> Sentence — (If) (NOT) interpreted as 

120 

RJ 

UP2 

UP 

(NOT EQUAL) 

121 

MJ 

0 

30000; 

Warning only 

122 

RJ 

WA 

WA2 >i 


123 

RJ 

UZ 

UZ1 

Sentence — (If) Fixed- and Floating-pt. 

124 

TP 

ID127 

UP 3 

. Values are not comparable 

125 

RJ 

UP 2 

UP 


126 

MJ 

0 

IF 

Error routine referenced. Analysis of 

127 

40 

IM103 

11 J 

sentence discontinued. 


CA 

ID130 





Excess-Three 

Print-Out Storage 


IA 

IM 



0 

65 

30506 

63050 

S E N T E N 

1 

26 

30017 

77777 

C E A 

2 

0 

0 

0 


3 

34 

50265 

15065 

I N C 0 N S 

4 

34 

65663 

05066 

I S T E N T 
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5 

01 

65343 

25001 

A 

s 

J. 

G 

R 

A 

6 

26 

33245 

03230 

C 

H 

A 

N 

G 

E 

7 

01 

27346 

52446 

A 

n 

T 

S 

A 

L 

10 

46 

51712 

42546 

L 

0 

w 

A 

B 

L 

11 

30 

01263 

32454 

E 

A 

c 

H 

A 

R 

12 

24 

26663 

05477 

A 

c 

T 

E 

R 

A 

13 

01 

34500 

13072 

A 

I 

N 

A 

E 

X 

14 

52 

51503 

05066 

P 

0 

N 

E 

N 

T 

15 

0 

0 

0 







16 

77 

77010 

10100 



A 

A A 


17 

01 

34502 

65154 

A 

I 

N 

c 

0 

R 

20 

54 

30266 

64673 

R 

E 

C 

T 

L 

Y 

21 

01 

71543 

46666 

A 

w 

R 

I 

T 

T 

22 

30 

50010 

17777 

E 

N 

A 

AAA 

23 

01 

65263 

43050 

A 

S 

c 

i 

E 

N 

24 

66 

34313 

42601 

T 

I 

F 

i 

C 

A 

25 

50 

51662 

46634 

N 

0 

T 

A 

T 

i 

26 

51 

50777 

77777 

0 

N 





27 

01 

51523 

05001 

A 

0 

P 

E 

R 

A 

30 

24 

25655 

14667 

A 

B 

S 

0 

L 

u 

31 

66 

30016 

53432 

T 

E 

A 

S 

I 

G 

32 

50 

01473 

46565 

N 

A 

M 

I 

S 

s 

33 

34 

50327 

77777 

I 

N 

G 




34 

01 

01665 

10165 

A 

A 

T 

0 

A 

s 

35 

33 

51674 

62701 

H 

0 

U 

L 

D 

A 

36 

31 

51464 

65171 

F 

0 

L 

L 

0 

w 

37 

01 

44674 

75277 

A 

j 

D 

M 

P 

A 

40 

01 

25302 

65147 

A 

B 

E 

C 

0 

M 

41 

30 

65010 

16750 

E 

S 

A 

A 

0 

N 

42 

26 

51502 

73466 

c 

0 

N 

D 

I 

T 

43 

34 

51502 

44601 

I 

0 

N 

A 

L 

A 

44 

44 

67475 

20166 

J 

D 

M 

P 

A 

T 

45 

51 

01653 

05066 

0 

A 

S 

E 

N 

T 

46 

30 

50263 

00177 

E 

N 

C 

E 

A 


47 

0 

o 

n 







50 

01 

65522 

42630 

A 

s 

P 

A 

c 

E 

51 

01 

01523 

05434 

A 

A 

P 

E 

R 

I 

52 

51 

27015 

12626 

0 

D 

A 

0 

C 

C 

53 

67 

54650 

12530 

D 

R 

s 

A 

B 

E 

54 

31 

51543 

00165 

F 

0 

R 

E 

A 

S 

55 

67 

31313 

42634 

D 

F 

F 

I 

c 

I 

56 

30 

50660 

12724 

E 

N 

T 

A 

D 

A 

57 

66 

24013 

23470 

T 

A 

A 

G 

I 

V 

60 

30 

50777 

77777 

E 

N 





61 

01 

65306 

60151 

A 

S 

E 

T 

A 

0 

62 

31 

01702 

45434 

F 

A 

V 

A 

R 

T 

63 

24 

25463 

06501 

A 

B 

L 

E 

S 

A 

64 

27 

34313 

13054 

D 

I 

F 

F 

E 

R 

65 

65 

01315 

45147 

S 

A 

F 

R 

0 

M 

66 

01 

34503 

46634 

A 

i 

N 

I 

T 

I 

67 

24 

46016 

53066 

A 

L 

A 

S 

E 

T 

70 

01 

26514 

75224 

A 

C 

0 

M 

P 

A 


709 



71 

54 

34655 

15001 

R 

I 

S 

0 

N 

A 

72 

65 

73472 

55146 

S 

y 

M 

B 

0 

L 

73 

65 

01244 

72534 

S 

A 

A 

M 

B 

I 

74 

32 

67516 

76522 

G 

D 

0 

D 

S 

m 

75 

01 

17505 

16643 

A 

C 

N 

0 

T 

) 

76 

01 

34506 

63054 

A 

I 

N 

T 

E 

R 

77 

52 

54306 

63027 

P 

R 

E 

T 

E 

D 

100 

01 

24650 

11750 

A 

A 

S 

A 

( 

N 

101 

51 

66013 

05367 

0 

T 

A 

E 

Q 

D 

102 

24 

46437 

77777 

A 

L 

) 




103 

31 

34723 

02776 

F 

I 

X 

E 

D 

— 

104 

01 

24502 

70131 


A 

N 

D 

A 

F 

105 

46 

51246 

63450 

L 

0 

A 

T 

I 

N 

106 

32 

76525 

13450 

G 

- 

P 

0 

I 

N 

107 

66 

01702 

44667 

T 

A v 

A 

L 

0 

110 

30 

65012 

45430 

E 

S 

A 

A 

R 

E 

111 

01 

50516 

60126 

A 

N 

0 

T 

A 

C 

112 

51 

47522 

45424 

0 

M 

P 

A 

R 

A 

113 

25 

46307 

77777 

B 

L 

E 





CA 

IM114 









Superior to Lower-Case Figure Routine 


Exit 

Entry 

Input-Output Line 

Setting up index for 6 characters 

Masking out 1st character to A 

Is character equal to 77? 

Is character one of superior X3 decimal 
figures? 

-n, - (j-r) 

-n, -(j-r) + n t j = r in u position 
(iol5+r)—> inl5 

u 

X3 decimal figure representation—>• A v 

Translated figure is incorporated into 
Input-Output line 

Index of input exhaustion 

To exit 

When 1st character = 77, no further 
translation to X3 decimal is performed. 
The 1-0 line is merely returned to 
original position. 

Exit 

Sentence—-(_) Disallowable char¬ 
acter in exponent . 

Parameter 



710 



Storage for "IN” 




IA 

10 




r\ 

V/ 

n 

U 

n 

77 

i i 



1 

0 

0 

[5] 



2 

0 

0 

5 



3 

0 

0 

60 



4 

0 

0 

61 

\J/ 


5 

0 

0 

40 



6 

0 

0 

20 



7 

0 

0 

41 



10 

o 

o 

35 



11 

0 

0 

55 



12 

0 

0 

75 

<1/ 


13 

0 

0 

36 



14 

0 

0 

57 



15 

0 

0 

3 

0 


16 

0 

0 

4 

l 


17 

0 

0 

5 

2 


20 

0 

0 

6 

3 


21 

0 

0 

7 

4 


22 

0 

0 

10 

5 


23 

0 

0 

11 

6 


24 

0 

0 

12 

7 


25 

0 

0 

13 

8 


26 

0 

0 

14 

9 



CA 

1027 





IA 

IQ 



Scientific 0 

MJ 

0 

30000 

Exit 

Notation 

1 

MJ 

0 

IQ4 

Entry 

Evaluation 2 

0 

0 

0 

Input in fltpt. of no. to left of e or * 

Routine 

3 

0 

0 

0 

May be neg. or pos. Also output line 
Exponent of 10 in octal. May be negative 






or positive 


4 

if r 

MJ 

0 

IQ 107 



5 

6 

TP 

ZJ 

IQ3 

IQ7 

A 1 

IQ J 

j> If exponent is zero, goes to exit 


7 

10 

TP 

SJ 

IQ2 

IQ11 

A ] 

IQI4 J 

Is floating point number negative? 


11 

12 

TM 

TP 

A 

IRll 

IQ2 ] 
IS2 J 

> Changing fltpt. no. to positive and 


' putting negative indicator into is2 


13 

TP 

IQ2 

A 



14 

TJ 

IR1 

IQ24 

Is 1 > floating point input 


15 

EJ 

IR1 

IQ30 

Is 1 = floating point input 


16 

TJ 

IR 

IQ30 

Is 10 > floating point input 


17 

RA 

IQ3 

IR2 ' 



20 

FD 

IQ2 

IR 

Loop to reduce floating-point 


21 

TP 

Q 

IQ2 

> number to one between 1 and 10 


22 

TP 

Q 

A 

such that 1< floating point no. < 10 


23 

MJ 

0 

IQ15 , 



24 

RS 

IQ3 

IR2 ' 



25 

FM 

IQ2 

IR 

> Loop to increase floating-point number 


26 

TP 

0 

IQ2 

such that 1 £ floating-point no. < 10 


27 

MJ 

0 

IQ13 , 
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30 

TP 

IQ3 

A 


31 

ZJ 

IQ32 

IQ45 

Is exponent zero? 

32 

SJ 

IQ33 

IQ51 

Is exponent negative? 

33 

34 

TM 

TJ 

A 

IR4 

A 

IQ54 

j> Is 39 > | exponent | 

35 

EJ 

IR4 

IQ37 ‘ 

Is 39 = | exp.l 

36 

MJ 

0 

IQ101 

Output to zero. Sentence ( ) 

absolute value of number too small - 





given zero value 

37 

TP 

IQ2 

A 

1 Is (IR7) > (IQ2)? Same printout and 

40 

TJ 

IR7 

IQ101. 

f action as above. 

41 

42 

FD 

TP 

IQ2 

0 

IR 

IQ2 j 

j> Dividing IQ2 by 10 and storing in IQ2 

43 

FD 

IQ2 

IR10 

1 Dividing IQ2 by 10^8 and storing in IQ2 

44 

TP 

0 

IQ2 

r 

45 

TP 

IS2 

0 i 

1 Is negative value of floating point 

46 

QJ 

IQ47 

IQ J 

f desired? 

47 

TN 

IQ2 

IQ2 

Making floating-point output negative 

50 

MJ 

0 

IQ 


51 

TJ 

IR5 

IQ54 

Is 38 > exp.? 

52 

EJ 

IR5 

IQ71 

Is 38 = exp.? 

53 

MJ 

0 

IQ75 

Jump to error print-out section 

54 

ST 

IR2 

IS 

Setting up index for multiplication 

55 

TP 

IR 

IS1 

10 —> IS1 

56 

IJ 

IS 

IQ60 

Index jump 

57 

MJ 

0 

IQ63 


60 

FM 

IS1 

IR 1 

1 Multiplying 10 to power desired in 

61 

TP 

Q 

IS1 j 

f floating-point 

62 

MJ 

0 

1056 


63 

64 

TP 

SJ 

IQ3 

IQ65 

A 1 

IQ67 J 

j* Is exponent negative? 

65 

FD 

IQ2 

IS1 

Dividing fltpt. no. by power of 10 





desired 

66 

MJ 

0 

IQ44 


67 

FM 

IQ2 

IS1 

Multiplying fltpt. no. by power of 10 





desired 

70 

MJ 

0 

IQ44 


71 

TP 

IR6 

A 

Is (IQ2) > (IR6) ? If so, too large. 

72 

TJ 

IQ2 

IQ75 

oo 

Multiplying by 10 

73 

FM 

IQ2 

IR10 

74 

MJ 

0 

IQ44 


75 

RJ 

WA 

WAl ' 


76 

TP 

IQ112 

UP 3 

Sentence ( ) absolute value of 

77 

RJ 

UP 2 

UP 

number too large 

100 

MJ 

0 

IQ J 

Error routine referenced 

101 

TP 

IR3 

IQ2 1 


102 

RJ 

WA 

WA2 

Sentence ( ) absolute value of 

103 

TP 

IQ113 

UP 3 

number too small - given zero value 

104 

RJ 

UP 2 

UP 

> 

105 

TP 

IQ114 

UP3 

Warning only 

106 

MJ 

0 

IQ77 J 


107 

TP 

IR3 

IS2 

Clearing is 2 
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I 1U 

111 

ir 

ZJ 

IQ5 

»— i £ 

o 

If 

floating 

point input is zero 

112 

40 

IQ115 

6 

CA A L 




113 

40 

IQ115 

5 







114 

40 

IQ123 

4 

A 

A 





115 

01 

01242 

56551 

A 

B 

S 

0 

116 

46 

67663 

00170 

L 

u 

T 

E 

A 

V 

117 

24 

46673 

00151 

A 

L 

0 

E 

A 

0 

120 

31 

01506 

74725 

F 

A 

N 

U 

M 

B 

121 

30 

54016 

65151 

E 

R 

A 

T 

0 

0 

122 

01 

46245 

43230 

A 

L 

A 

R 

G 

E 

123 

01 

65472 

44646 

A 

S 

M 

A 

L 

L 

124 

02 

02323 

47030 

- 

- 

G 

I 

V 

E 

125 

50 

01743 

05451 

N 

A 

Z 

E 

R 

0 

126 

01 

70244 

66730 

A 

V 

A 

L 

D 

E 


CA 

IQ127 









Constants for IQ 



IA 

IR 



0 

20 

45000 

0 

10 

1 

20 

14000 

0 

1 

2 

0 

0 

1 


3 

0 

0 

0 


4 

0 

0 

47 

39 

5 

0 

0 

46 

38 

6 

20 

16634 

37341 

==. 1.70141184 

7 

20 

15701 

21001 

== 1.46936801 

10 

37 

74547 

32316 

1038 

11 

40 

0 

0 

Indicator 


CA 

IR12 




Temporary Storage 


IS 0 Multiplication index 

1 Multiplication storage 

2 Negative answer indicator 
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If String-Out (Tape 3) 


X is 

floating¬ 

point 

constant 


Jump Routine 



IA 

IJ 



0 

RJ 

SY 

SY1 


1 

TP 

SY2 

A 


2 

EJ 

UF51 

IJ14 

TO? 

3 

RJ 

ID63 

ID60 

Sentence — (If) "To" should follow "JUMP 1 

4 

TP 

SY2 

A 


5 

RP 

20007 

IJ7 

^ TO, Sentence, Statement, line, number, 

6 

EJ 

UF51 

IJ14 

l No.. Sent.? 

7 

EJ 

UF14 

IK 

A . 

10 

TP 

SY5 

A 

> Are no. of chars, of what should be 

11 

TJ 

UF23 

IJ16 


figure<7? 

12 

RJ 

ID40 

ID34 

Sentence — (If) Incorrectly Written — 

13 

MJ 

0 

IF 


14 

RJ 

SY 

SY1 

Get next symbol 

15 

MJ 

0 

IJ4 


16 

TP 

SY2 

LN4 1 

Getting line number in proper form and 

17 

RJ 

LN2 

LN 

> storing output 

20 

TP 

LN3 

VN5 


21 

TP 

VN70 

Q 1 

L 

22 

QJ 

IJ23 

IJ53 

Is X floating-point constant? 

r 23 

TP 

VN121 

0 1 

L 

24 

QJ 

IJ25 

IJ30 

Is Y floating-point constant? 

25 

TP 

VN40 

IT 


26 

TP 

VN71 

IT1 

> Sent to preliminary number comparison 

27 

MJ 

0 

IT2 . 


30 

31 

TP 

QJ 

VN74 

ID12SL 

Q 1 
IJ32 

> Is Y fixed-point variable? 

32 

TP 

VN72 

A ^ 

> Is Y fixed-point constant? 

33 

ZJ 

IJ40 

IJ34 

34 

TP 

VN40 

A 

Y is a floating-point variable. Call 

35 

RJ 

GW 

GWl 

word for X constant to VN57 

36 

TP 

0 

VN57 

> 

37 

MJ 

0 

IJ160 

Jump to end 

40 

RJ 

IJ52 

IJ42 

Y to floating-point 

V.41 

MJ 

0 

IJ25 

Jump to comparison 

42 

TP 

VN72 

GG4 ' 


43 

TP 

UF31 

GG5 

Translation of Y fixed-point constant 

44 

RJ 

GG2 

GG 

to floating-point and storage 

45 

TP 

VN106 

0 

46 

QJ 

IJ47 

IJ51 

> 

47 

TN 

GG3 

VN71 


50 

MJ 

0 

IJ52 


51 

TP 

GG3 

VN71 


52 

MJ 

0 

30000, 


53 

TP 

VN41 

A * 

> Is X fixed-point constant? 

54 

ZJ 

IJ55 

IJ131 
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X is 


55 

TP 

VN121 

Q L 

fixed- 


56 

QJ 

IJ57 

IJ72 

r 

point 

""-N, 

57 

RJ 

IJ71 

IJ61 

constant 


,60 

MJ 

0 

IJ25 



61 

TP 

VN41 

GG4 ^ 




62 

TP 

UF31 

GG5 




63 

RJ 

GG2 

GG 




64 

TP 

VN55 

Q 




65 

QJ 

IJ66 

IJ70 

> 



66 

TN 

GG3 

VN40 




67 

MJ 

0 

IJ71 




70 

TP 

GG3 

VN40 




71 

MJ 

0 

30000> 


X is 


r 72 

TP 

VN72 

A 1 

fixed- 


73 

ZJ 

IJ74 

IJ122J 

point 


74 

RJ 

IJ106 

IJ77 

constant 


75 

RJ 

IJ116 

IJ107 



L76 

MJ 

0 

IJ117 



77 

TP 

VN41 

RS4 ^ 



100 

RJ 

RS2 

RS 



101 

TP 

VN55 

Q 



102 

QJ 

IJ103 

IJ105 

> 


103 

TN 

RS3 

VN41 



104 

MJ 

0 

IJ106 



105 

TP 

RS3 

VN41 



106 

MJ 

0 

30000, 




107 

TP 

VN72 

RS4 ^ 



110 

RJ 

RS2 

RS 



111 

TP 

VN106 

Q 



112 

QJ 

IJ113 

IJ115 

> 


113 

TN 

RS3 

VN72 



114 

MJ 

0 

IJ116 



115 

TP 

RS3 

VN72 




116 

MJ 

0 

30000, 




117 

TTO 

XL 

VN41 

IT 1 

| 

L 



120 

TP 

VN72 

IT1 J 

r 


121 

MJ 

0 

IT2 


r 

122 

TP 

VN74 

q V 


123 

QJ 

IJ124 

IJ127J 

X is 


124 

RJ 

IJ106 

IJ77 

fixed- < 

125 

TP 

VN41 

A 1 

L 

pt. con¬ 

126 

MJ 

0 

IJ35 J 

r 

stant 


127 

RJ 

IJ71 

IJ61 



130 

MJ 

0 

IJ34 



131 

TP 

VN43 

Q 1 



132 

QJ 

IJ133 

IJ146J 


r 

133 

TP 

VN121 

Q \ 


134 

QJ 

ID122 

IJ135J 



135 

TP 

VN72 

A i 



136 

ZJ 

TJ137 

TJ144J 


Is Y floating-point constant? 

X to floating-point 
Jump to comparison 


Translation of X fixed-point constant 
to floating-point constant and storage 


Is Y fixed-point constant? 

X to octal and storage 
Y to octal and storage 
Jump to fixed-point comparison 

Translation of X excess-three decimal to 
octal and storage 


Translation of Y excess-three decimal 
to octal and storage 


Fixed-point numbers to preliminary 
comparison 

Is Y fixed-point variable? 

X to octal and storage 

Getting call word for X and storing 

X to floating point and storing 
Getting call word for X and storing 

Is X fixed-point variable? 

Is Y floating-point constant? 

Is Y fixed-point constant? 
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1 137 

RJ 

IJ116 

IJ107 

Y to octal and storage 

X is 

| 140 

TP 

VN72 

A 

fixed- < ‘. 

141 

RJ 

GW 

GWl 

> Getting call word for Y and storing 

point 

142 

TP 

Q 

VN110 

variable 

143 

MJ 

0 

IJ160 J 



144 

.145 

TP 

QJ 

VN74 

IJ160 

Q 

ID122 j 

j> Is Y fixed-point variable? 


^146 

147 

TP 

QJ 

VN121 

IJ156 

Q i 

IJ150 J 

^ Is Y floating-point constant? 

X is 

150 

151 

TP 

ZJ 

VN72 

IJ152 

A 1 

IJ154 J 

j* Is Y fixed-point constant? 

152 

RJ 

IJ52 

IJ42 

Y to floating-point constant 

float¬ 

153 

MJ 

0 

IJIS’C, 

ing 

PQint 

154 

155 

TP 

QJ 

VN74 

ID122 

0 l 

IJ160 J 

!*■ Is Y fixed-point variable? 

varia¬ 

156 

TP 

VN71 

A 1 

> Getting call word for Y and storing 

ble 

J57 

MJ 

0 

IJ141 J 


160 

RP 

30010 

IJ162 1 



161 

TP 

VN54 

VNll 1 



162 

RP 

30010 

IJ164 f 

Transfer of prepared data to output region 


163 

TP 

VN105 

VN21 J 



164 

TP 

VN5 

A 



165 

RJ 

IX 

1X1 



166 

RJ 

SY 

SYl 



167 

TP 

SY2 

A 



170 

RP 

20004 

IJ172 1 

» ( ) f ; tests 


171 

EJ 

UF16 

IJ166 J 


172 

EJ 

UF14 

IK 

A . check 


173 

EJ 

UF2 

IU 

"if" check 


174 

RJ 

ID40 

ID34 

Sentence — (if) Incorrectly Written — 


175 

MJ 

0 

IF 




CA 

IJ176 






Preliminary Number Comparison Routine 



IA 

IT 




0 

0 

0 

0 

1st no. X 


1 

0 

0 

0 

2nd no. Y 


2 

TP 

VN4 

A 



3 

EJ 

UF26 

ITll 

< ? 


4 

EJ 

UF60 

rri4 

= ? 


5 

EJ 

UF61 

IT17 

> ? 


6 

EJ 

UF62 

IT22 

< ? 


7 

EJ 

UF63 

IT25 

t ? 


10 

MJ 

0 

IT30 

> 

< 

11 

TP 

IT 

A 



12 

TJ 

ITl 

IT32 

Change "if" sentence to a M jump"sentence 


13 

MJ 

0 

IF1 

Jump back to start of IF 


14 

TP 

IT 

A 


15 

EJ 

ITl 

m2 



16 

MJ 

0 

m 


> 

17 

TP 

ITl 

A 
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20 

TJ 

IT 

IT32 



21 

MJ 

0 

IF1 


< 

22 

TP 

IT1 

A 



23 

TJ 

IT 

IF1 



24 

MJ 

n 

IT32 


t 

25 

TP 

IT 

A 



26 

EJ 

IT1 

IF1 



27 

MJ 

0 

IT32 


> 

30 

TP 

IT 

A 



31 

TJ 

IT1 

IF1 



32 

TP 

UF63 

VN 

Number (6) to 1st line of output 

Changing 33 

TP 

UF15 

VN2 

JUMP put into title output line 

IF to a 

34 

TP 

VN5 

VN4 

Line number changed to 5th position of 

Jump 





output 

Sentence 35 

TP 

VN33 

VN5 

Pseudo-op indicator to 6th output line 


36 

RJ 

ID71 

ID65 

Sentence — (If) Becomes Unconditional 


37 

40 

TP 

RJ 

VN4 

IX 


Jump to Sentence — 


A 1* 

1X1 J 

Line number to reference list 


41 

RJ 

WT 

WT1 

Write string-out on tape 


42 

MJ 

0 

IF 




CA 

IT43 






Termination Space Period Routine 


0 

1 

IA 

IK 

A 1 
IK 12 ; 



TP 

ZJ 

VN5 

IK2 

Has a 1st number been filled in? 


2 

3 

TP 

ZJ 

VN4 

IK4 

A V 

IK12 J 

Has a 1st relation been filled in? 


4 

5 

TP 

ZJ 

VN14 

IK6 

A V 

IK12 J 

Is there a call word for X? 


6 

7 

TP 

ZJ 

VN24 

IK10 

A > 
IK12 J 

Is there a call word for Y? 


10 

RJ 

WT 

WT1 

To write completed data on tape 


11 

MJ 

0 

IF 

Exit 


12 

RJ 

ID77 

ID73 

Sentence — (If) Space period occurs 






before sufficient data given 


13 

MJ 

0 

IF 



14 

TP 

VN10 

A V 

Has a 3rd no. been filled in? 


15 

Z J 

IK 

JF141J 


16 

TP 

VN7 

A 1 

Has a 2nd no. been filled in? 


17 

Z J 

IK20 

IK12 / 


20 

21 

TP 

ZJ 

VN6 

IK 

A V 

IK12 J 

Has a 2nd relation been filled in? 



CA 

IK22 







2nd Control Routine 



IA 

IU 



Initial 

0 

TP 

VN56 

VN43 

Abs. sign of X to more convient location 

Control- 

1 

TP 

VN107 

VN74 

Abs. sign of Y to more convient location 

2nd or 

2 

RP 

10015 

IU4 

Clearing region of temporary Storage 

3rd time 

3 

TP 

UF7 

VN150 

thru 

4 

TV 

IU33 

JC 

Setting up divider routine for 2nd or 


3rd time thru 
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5 

RJ 

SY 

SY1 

Get next symbol 


6 

TP 

SY2 

A 



7 

TP 

SY2 

VN1521 

Store 1st two symbol words in temporary 


10 

TP 

SY3 

VN153J 

storage 


11 

EJ 

UF4 

IU25 

-? 


12 

EJ 

UF3 

IU31 

1? 


13 

EJ 

UF17 

IU5 

1? 


14 

EJ 

UF14 

IK14 

A. termination 


15 

16 

TP 

QJ 

SY11 

IY 

Q V 

IU17J 

Is symbol a constant? 


17 

20 

TP 

QJ 

SY10 

IY33 

Q \ 
IU21J 

Is symbol a fixed-point variable? 


21 

22 

TP 

QJ 

SY7 

JB 

0 \ 
IU23J 

Is symbol a floating-point variable? 


23 

RJ 

ID16 

ID13 

Sentence — (If) Symbol Rejected — 


24 

MJ 

0 

IU5 



25 

TP 

VN151 

Q 

Negative sign if no previous absolute sign 


26 

QJ 

IU5 

IU27 


27 

TP 

UF27 

VNisor 



30 

MJ 

0 

IU5 J 



31 

TP 

UF27 

VN151 

Absolute sign indicator to temporary 






location 


32 

MJ 

0 

IU5 



33 

0 

0 

JC3 




CA 

IU34 





2nd 

Constant 

and Fixed- 

-Point Variable Routine 



IA 

IY 



Constant 
&: Fix-Pt. 

0 

1 

TP 

ZJ 

VN47 

IY4 

A 1 

IY2J 

Did X have a number in scientific notation? 

Var. 

Routine - 

2 

3 

TP 

ZJ 

VN100 

IY4 

A \ 

IY33J 

DidY have a number in scientific notation? 

2nd or 

4 

RJ 

SY 

SY1 

Get next symbol 

3rd time 

5 

TP 

SY2 

A 


Thru 

6 

EJ 

UF 

IY4 

e? 


7 

EJ 

UF1 

IY21 

*? 


10 

EJ 

UF4 

IY16 

-? 


11 

EJ 

UF5 

IY16 

-? 


12 

13 

TP 

QJ 

SY11 

IY14 

0 > 
IDllOJ 

Constant? 


14 

TP 

SY2 

VN155 

Exponent to storage 


15 

MJ 

0 

IY33 

Negative sign indicator (40 0 0) to storage 


16 

TP 

UF27 

VN154 


17 

RJ 

SY 

SY1 

Get next symbol 


20 

MJ 

0 

IY12 



21 

RJ 

SY 

SY1 

Get next symbol 


22 

TP 

SY2 

A 



23 

EJ 

UF22 

IY25 

10? 


24 

MJ 

0 

ID42 



25 

RJ 

SY 

SY1 

Get next symbol 


26 

TP 

SY2 

A 



27 

EJ 

UF25 

IY31 

POW? 
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Get next symbol 



30 

MJ 

0 

IY10 


31 

RJ 

SY 

SY1 


32 

MJ 

0 

IY10 


no 

GO 

RJ 

TO T *7 
dDl 1 

JB6 


34 

RJ 

ID16 

ID13 f> 


35 

MJ 

0 

IY33 J 



CA 

IY36 





2nd Floating-Point 



IA 

JB 


2nd or 

0 

R T 

I»V 

TA 

TA1 

3rd time 

1 

MJ 

0 

JB32 

thru 

2 

TP 

UF36 

A 


3 

TJ 

TA4 

JB37 

Nonsub- 

4 

RJ 

JB17 

JB6 

script¬ 

r 5 

MJ 

0 

JB24 

ed var¬ 

6 

RJ 

SY 

SYl 

iable 

7 

TP 

SY2 

A 


10 

RP 

20004 

JB12 1 


11 

EJ 

UF16 

JB6 J 

Termi- < 

12 

EJ 

UF3 

JB20 

nation 

13 

RP 

20004 

JB15 L 

Loop 

14 

EJ 

UF10 

JC J 


15 

EJ 

UF15 

JF 


16 

EJ 

UF14 

IK14 


a 7 

MJ 

0 

30000 


20 

TP 

VN151 

Q l 


21 

QJ 

JB6 

JB22 J 


22 

RJ 

ID 56 

ID52 


23 

MJ 

0 

JB6 


24 

TP 

SY7 

Q 1 


25 

QJ 

JB4 

JB26 J 


26 

TP 

Sill 

Q \ 


27 

QJ 

JB4 

JB30J 



30 

RJ 

ID16 

ID13 


31 

MJ 

0 

JB4 


32 

RJ 

TS 

TSl 

Not in 

33 

MJ 

0 

ID110 

Is in 

34 

TP 

UF34 

A 1 


35 

TJ 

TS3 

JB37 J 


36 

MJ 

0 

JB4 

Sub¬ 

&7 

TV 

JB60 

JB55 

scripted 

40 

TP 

UF60 

JB61 

variable 

41 

RJ 

JB17 

JB6 


42 

TP 

SY11 

Q 1 


43 

QJ 

JB50 

JB44 J 


Termination check loop 


Variable Routine 


To cirmhnl in f.nmh T {ct9 

-lO j Uikj w JL. 4.11 vyiliju • *4*0 w • 

Not in 
Is in 

Go to subscripted variable portion 


Get next symbol 

) ( , ; tests 
Abs. sign test 
K > = NOT tests 

JUMP? 

A. 

Has open absolute sign been given? 

"Sentence — (If) Open absolute sign 
missing" Error routine reference and 
continuation of analysis 

Is symbol a variable? If either a variable 

or constant, it is 
Is symbol a constant? assumed to be re¬ 
dundant argument 
of a single valued 
function and no 
notice is taken 
of it 

Sentence — If Symbol Rejected — 

Is symbol in pseudo-op list? 

Sentence — (If)Set of variables differs 
from Initial Set 

Is variable subscripted? 

No 

Setting up v of storage subroutine 
Setting up index 
Termination check 

Is symbol a constant? 
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44 

45 

TP 

QJ 

SY10 

JB50 

0 V 

JB46J 

Is symbol a fixed-point variable? 


46 

RJ 

ID16 

ID13 

Sentence — (If) Symbol Rejected — 


47 

MJ 

0 

JB41 



50 

RJ 

JB57 

JB55 

Storing const, or fix.-pt. var. XS3 






representation 


51 

IJ 

JB61 

JB41 

Index jump to start of loop 


52 

RJ 

JB17 

JB6 1 



53 

RJ 

ID 16 

ID13 f 

* Termination check loop 


54 

MJ 

0 

JB52 J 



55 

56 

TP 

RA 

SY2 

JB55 

{VN156] 

UF6 

1 Storage subroutine 


57 

MJ 

0 

30000. 

J 


60 

0 

0 

VN156 



61 

0 

0 

0 

Index temporary 



CA 

JB62 





IA 

JC 



Relation 

Symbol 

0 

1 

RJ 

RJ 

JC 

ID40 

JC3 1 
ID34J 

Sentence — (If) Incorrectly Written — 

Routine - 

2 

MJ 

0 

IF 


2nd or 

3 

TP 

A 

VN163 

1st relation symbol to storage 

3rd time 

4 

TP 

UF6 

VN162 

Starting count in counter of relation 

thru 

5 

RJ 

SY 

SY1 

symbols 

Get next symbol 


6 

TP 

SY2 

A 



7 

RP 

20003 

JC14\ 

<> = ? 


10 

EJ 

UF10 

JCll J 



11 

TP 

A 

VN164 

2nd relation symbol to storage 


12 

RA 

VN162 

UF6 

Count of relation symbols increased 


13 

MJ 

0 

JC15 



14 

EJ 

UF13 

JC1 

Is 2nd symbol NOT? 


15 

16 

RP 

TP 

30015 

VN150 

JC17 ' 
VN130 

j> Transferring data of to VN130-144 


17 

20 

RP 

TP 

10015 

UF7 

JC21 ” 
VN150 

!> Clearing VN150-164 for use of Y 2 data 

' accumulation 


21 

TP 

VN142 

A 

L Is 2 > no. of relation symbols, some 


22 

TJ 

UF26 

IU6 . 

j value of SY2 hasn *t yet been identified 

and stored 


23 

MJ 

0 

IU5 

Return to gather data on Y 



CA 

JC24 







2nd Jump Routine 

Jump 

Routine- 

0 

IA 

TU 

JF 

JF156 

JF145 


2nd or 

1 

TU 

JF160 

JF146 


3rd time 

2 

TV 

JF154 

JF147 


thru 

3 

RJ 

JF153 

JF144 

Check if X 0 = X 


4 

TU 

JF157 

JF145 

c. 


5 

TU 

JF161 

JF146 



6 

TV 

JF155 

JF147 



7 

RJ 

JF153 

JF144 

Check if Y 0 = Y 
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10 

RJ 

JI 

JI1 

11 

TP 

VN130 

A 

12 

EJ 

VN55 

JF16 

13 

TP 

VN150 

A 

14 

EJ 

VN106 

ID3 

15 

MJ 

0 

JF41 

16 

TP 

VN150 

A 

17 

EJ 

VN106 

JF57 

20 

MJ 

0 

ID3 

21 

TU 

JF156 

JF145 

22 

TU 

JF161 

JF146 

23 

TV 

JF155 

JF147 

24 

RJ 

JF153 

JF144 

25 

TU 

JF157 

JF145 

26 

TU 

JF160 

JF146 

27 

RJ 

JF153 

JF144 

30 

RJ 

JI 

JI1 

31 

TP 

VN130 

A 

32 

EJ 

VN106 

JF36 


33 

TP 

VN150 

A 

34 

EJ 

VN55 

ID3 

35 

MJ 

0 

JF57 


36 

TP 

VN150 

A 

37 

EJ 

VN55 

JF41 



40 

MJ 

0 

ID3 


41 

TP 

VN7 

A 1 

Reversal 

42 

ZJ 

JF43 

JF46/ 

of re¬ 

43 

TP 

UF63 

A 1 

lation 

symbols 

44 

ST 

JI123 

l 

Jii2gf 

due to 

45 

MJ 

0 

JF57 

changing 

46 

TP 

VN6 

A 1 

of signs 

47 

ZJ 

JF50 

JF53 J 

or alter¬ 

50 

TP 

UF63 

A 1 

ing of 
position 

51 

ST 

VN6 

l 

VN6 J 

of X & Y 

52 

MJ 

0 

JF57 

the 2nd 

53 

TP 

VN65 

A 1 

or 3rd 

54 

EJ 

UF26 

JF43 J 

time 

55 

TP 

UF24 

A 

thru 

56 

ST 

JI123 

JI123 


Checks consistency of relation symbols 
and assigns code figures 

1st left sign = 2nd left sign X2(s)=X(s) 
1st left f 2nd left ^(s) f X(s) 
Inconsistent sign change Y2(s) = Y(s) 
Double sign inequality. Relation reversal 
needed. Y 2 (s) 4 Y(s) 

Y2(s) = Y(s) 

Sign of 2nd rt. = sign of 1st rt. Signs 
O.K. Reversal of relation not needed 
Inconsistent sign change. Y2 4 Y 


Left = Right. Check if X = Y 2 

Right = Left. Check if Y = X 2 

Checks consistency of relation symbols 
and assigns code figures 

Sign follows group equality #1 
X 2 (s) = Y(s) 

X 2 (s) 4 Y (s) 

Inconsistent sign change YqCs) = X(s) 

Y 2 (s) 4 X(s) Double inequality of signs 
and reverse equality of no. series 
means relation reversal not needed 

Y 2 (s) = X(s). Sign follows group reverse 
equality 2nd time. Relation reversal 
needed 

Inconsistent sign change. Y 2 CS) 4 X(s) 

Is line no. for 2nd test in output? 

Reversing relation of single symbol in 
temp, storage 6-£,3,4} = [4,3 f 2) 


Is 2nd test line 4 0? 


Reversing relation of 2nd test line. 
6-{2,3,4>= {4,3,2> 


Was 1st test a double relation test? 
12 -{ 5,6,7} ={7.6,S> 
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Check of 

57 

60 

TP 

ZJ 

VN7 

JF61 

consis¬ 

61 

TP 

UF50 

tency of 

62 

ST 

VN4 

relation 

63 

ST 

VN6 

symbols 

64 

EJ 

JI123 


65 

MJ 

0 


66 

TP 

VN6 


67 

ZJ 

JF70 


70 

EJ 

VN4 


71 

MJ 

0 


72 

TP 

UF50 


73 

ST 

VN4 


74 

EJ 

JI123 


75 

MJ 

0 


r 76 

RJ 

SY 

Loop to 

77 

TP 

SY2 

get line 

100 

EJ 

UF51 

number 

101 

RJ 

ID63 


102 

TP 

SY2 


103 

RP 

20007 

< 

104 

EJ 

UF51 


105 

EJ 

UF14 


106 

TP 

SY5 


107 

TJ 

UF23 


110 

RJ 

ID40 


111 

MJ 

0 


112 

RJ 

SY 


JL13 

MJ 

0 


114 

TP 

SY2 


115 

RJ 

LN2 


116 

TP 

LN3 


117 

RJ 

IX 


120 

TP 

VN6 


121 

ZJ 

JF122 


122 

TP 

VN7 


123 

ZJ 

JF124 

Exit 

124 

TP 

LN3 

loop I 

(125 

RJ 

SY 

after J 

1126 

EJ 

UF16 

final 

1127 

EJ 

UF14 

line no. 

(130 

MJ 

0 

is ob¬ 

131 

TP 

LN3 

tained 

132 

RJ 

SY 


133 

RP 

20004 

Exit 

134 

EJ 

UF16 

loop 

135 

EJ 

UF14 

after 

136 

TP 

UF60 

line no. 
for VN7 

137 

EJ 

UF2 

is ob¬ 
tained. 
May be 

JL40 

MJ 

0 

start of 

3rd 



time thru if an 




if" is recognized 


A 1 

JF66 J 
A 

A [ 

A 

JF76 J 
ID 103 

A V 

JF72 / 

ID103 

JF76 

! I 

JF76 J 
ID 103 
SY1 

A 

JF112 

ID60 

A 

JF1051 
JF112 J 
IK14 

A 1 

JF114 J 

ID34 

IF 

SY1 

JF102 

LN4 1 

LN l 

A J 

IX1 

A l 

JF124J 

A l 

JF131 J 

VN10 

SY1 

JF125 

IK14 

IJ12 

VN7 

SYl 

JF1351 

JF132J 

IK14 

VN34 

IU2 

IJ12 


Is line no. for 2nd test zero? 

[9 - (VN4) - (VN6)] = (JI123) 

Symbol OK. Can get on to rest of jumps 
now 

Is 2nd test line = 0? 

Is (VN6) = (VN4)? 

[9 - (VN4)] should equal (JH23) 

Comparison symbols ambiguous 
Start of procedure to get line no. 
Getting next symbol 

Is symbol TO 

TO should follow Jump (Warning) 

Is symbol TO, SENTEN, STATEM, LINE, 
NUMBER, NO., SENT.? 

A. test 

Is 7 > no. of chars. 

Incorrectly Written — 

Exit 

Get next symbol 


Getting line number in standard form 


Sending line number to reference list 
Is 2nd test line zero? 

Has a line number already been put in VN7? 
Line number to unconditional jump line 

) ? 

A. routine of 2nd or 3rd time thru 

Incorrectly Written _ 

Line no. to VN7 

) ( , ; ? 

A . test? 

Putting indicator "3" in output to in¬ 
dicate there are to be 3 clauses 

Start of 3rd time thru with recognition 
of "IF" 

Incorrectly Written — 
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7 A 1 

XTCX 

142 

TD 

X L. 

EJ 

irtoo a 

v 

UF60 

A "* 

IK12 J 

1 

j> Is this the third clause being 

analyzed? 

143 

MJ 

0 

IK16 



144 

TP 

UF65 

JF162 

Index set up 


145 

TP 

[VN43 ] 

A 1 


146 

EJ 

[VN131] 

JF150 

Check if storage of data for a 

constant 

147 

MJ 

0 

.JF21 ! 

or variable is equal to same 

data 

150 

RA 

JF145 

UF42 

> gathered for one on the first 

part of 

151 

RA 

JF146 

UF42 

an "if" sentence 


152 

IJ 

JF162 

JF145 



153 

MJ 

0 

30000J 



154 

0 

0 

JF21 



155 

0 

0 

ID110 



156 

0 

VN43 

0 

X absolute 


157 

0 

VN74 

0 

Y absolute 


160 

0 

VN131 

0 



161 

0 

VN151 

0 



162 

0 

0 

0 

Index temporary storage 



CA 

JF163 






VARY Translation Routine 

The VARY translation routine builds from the input VARY sentence the 
required lists of symbols for generating the VARY coding and for providing the 
necessary connections so that the stated looping processes can be accomplished. 
These lists are called the VARY String-out, the VARY File, and the Variable 
List. In addition to these tasks, this routine makes appropriate checks, 
where possible, for the writing of VARY sentences containing non-ending loops. 
It also checks for compatibility of fixed- or floating-point variables and 
constants within a Modify Component of a VARY sentence. 


String-Out Form for VARY Sentence 


WLO 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 


OOOOOOOOOttt 


V 

0 0 
0 0 


r 0 
0 0 


q x 0 
q 2 0 
q 3 0 
0 0 

pi 0 

4 0 

qj 0 

I 4 0 


A R Y 7 7 7 7 

OOOOOsssss 
OOOOOOOOyy 


0000000000 

OOOWXOOOOO 


P 0 Call word 


0 


Call word 


0 


Call word. 
Call word, 

i 

Call word. 


Call word. 
Call word, 

c 

Call word. 


ooowx 1 00000 


cw o 

cw 0 

VdiidUiC 

Variable 

cwj 

cwj 

Initial value 

cw 2 

CW 2 

Increment 

CW 3 

CW 3 

Limit > 


ttt = number of words in string-out 

Sentence number in standard form 

XS-3 sentence identifier 

sssss = sentence call word 

YY = number of WITH words (max. 17^) 

Sentence number of first in range 

Sentence number of last in range 

Sentence number of transfer, if 
stated (zero otherwise) 
r = 4 if WL7 is RESUME number (zero 
otherwise) 

WX = indicator for tests of first 
variable 

Variable. P=4 if call wordo is 63- 

and floating, (zero otherwise) 
Initial valueS q . =4 lf absolute val . 

> ue is specified (ex¬ 
cept constants) 


Increment 

Limit 


WX ^indicator for tests of second 

_4 _• 1 _ 


meaning as above 


Additional 5 word 
components as re¬ 
quired 
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The WX indicators in the String-out provide to the VARY generator the 
information required so that the necessary tests, if any, may be built to guard 
against indefinite loops within the VARY cycle. These indicators may be 
explained by the modify component. 

VARY a a(b) c . 

where a denotes the fixed or floating variable, and a, b, and c are fixed-or 
floating-point variables and/or constants. 

Then, WX = 00 if a, b, and c are all constants. No test coding will be 
generated 

WX = 10 if a and/or c are variable and b is a stated constant > 0. 

WX = 14, if a and/or c are variable and b is a stated constant < 0. 

WX = 20, if b is a variable, and a and c are constants such that 
c-a > 0. 

WX = 21, if b is a variable, and a and c are constants such that 
c-a < 0. 

WX - 22, if b is a variable, and a and c are constants such that 
c-a = 0 

WX = 30, if b is a variable, and a and/or c are variable. 

Since the test coding that is built by the VARY generator for all cases 
except WX = 00 is only executed at the beginning of the looping process, none 
of the variables a , b, or c may be changed by other sentences within the 
VARY*s range. In order to check that these variables are not altered by their 
appearance in other Modify components of this or other VARY sentences, or in 
COMPUTE sentences, or on the left of equations, the Variable List is built by 
the VARY translator. This list consists of three word entries for each modify 
component of VARY sentences. These entries remain in the list only until the 
translation process has progressed beyond the range of the VARY. 

Example: VARY X 0(1)Y with J I(K)100 Sentences 10 thru 20 , 

After the insertion of the 2 three-word items for this sentence, the Var¬ 
iable List would appear as follows: 
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VLO 




Previous entries in 
tlie list, if any 


For constant 1 


For constant 100 


When a constant appears for b. or £ in the Modify component, the corre¬ 
sponding word in the Variable List is cleared. 

The three-word items entered for the above sentence remain in the list for 
checking by the COMPUTE and Equation translators until sentence 20 has been 
processed. Then the VE routine of the Translation subroutines removes these 
items from the list. 

The first entries into the VARY File are also made by the VARY translator. 
This file is used later, to: 

1. Determine when items are to be removed from the Variable List. 

2. Provide exits from VARY sentences when transfer components are not 
stated. 

3. Establish the continuation of the VARY loop from the last sentence 
in its range. 
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A VARY File item consists of two words for each VARY sentence: 


Sentence number of last sentence 
in range. 

CW 2 - Call word of VARY sentence. 
CWj = Call word of sentence to 
which exit is made. 

Y(4 bits) = number of WITH words. 
X(2 bits) = 10 if exit is normal 
transfer. 

= 11 if exit is RESUME 
of previous VARY. 

All entries in the VARY File item except CWl and X are made by the 
VARY translator. The item is completed later by the VE routine of the 
Translation Subroutines (see Section III, 3,a). 
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Error Print-Outs Used in VARY Translator 


ZA 

ZB 

ZC 

ZD 

ZE 

ZF 

ZG 

ZH 

ZI 

ZJ 

ZK 

ZL 

ZM 

ZN 

IN 

IQ 

NV 


_ is not a variable symbol. 

Format error i.e. t no parenthesis. 

Inconsistent use of fixed or floating point operands. 

Minus sign illegal prefix to variable. 

Inconsistent use of absolute value signs. 

_type symbol is illegal in scientific notation format. 

Illegal scientific notation format. 

Change modifiers to eliminate infinite loop. 

The number of modifier components exceed 15. Rest of sentence not checked. 
Misspelling or no referenced sentence. 

No space period symbol. 

Incomplete sentence i.e. f no (range)component. 

Variable _must not change values within VARY loop. 

Error in transfer component. 

Disallowable character in exponent _ 

[Absolute value of number too small - given zero value 
^Absolute value of number too large 

Too many vary sentences in program. 

• VARY must not be last sentence in range of any VARY. 

. Range of inner VARY extends beyond range of outer VARY. 
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Vary Translator Flow Charts 


XV 

Preset program — 
zeroize WL4-WL10 


Preset location 
necessary for 
reentrance. 


Pick up variablel^^- 
assign or find C/W^ 
and send to Temp. <12 


Pick up initial value 
of modifier. Determine if 
variable or constant (set 
indicator in^VT*). Assign 
or find C/W and send to 
Temp. (IS) 


Pick up incrementing I BV 
value of modifier. Deter¬ 
mine if variable or con¬ 
stant (set indicator i^VT'X 
Assign or find C/w and send 
to Temp. 14 


Build indicator 
on basis of infor¬ 
mation concerning 
operands stored in 
VT20-VT26. Send 
indicator to Temp. 


Test operands 
in modifier for 
infinite loop 
design 


m 


Move stored |SV 
values in Temp. 

Q).- Temp. (f5) to 
string-out 


Build a Variable List [DV 
containing variable, 
incrementing operand, 
and limiting operand of 
modifier component . 


Pick up limiting value 1 CV 
of modifier. Determine 
if variable or constant 
(set indicator in’VT 1 ). 
Assign or find C/W and 
send to Temp. (15) 


VARY String-Out Control Flow 


Test for 'with* and 
tally in WL4 


Error Return 
RJ VT VT1 


Process range and 
transfer components 


Note: 

In Flow charts that follow 

ct refers to variable, 


SL 

refers to initial value, 


Jb. 

refers to increment, 


_c 

refers to limiting value, 


as 

VARY a a(b)c. 
















a Region 


Error Routine 

Alarm print-out 
then proceed 


Get next symbol 


Illegal variable 
type symbol 

-1 


NO 


Test for letter 
QJ (SY7) 


YES 


NO 
K— 


Check variable 
type symbol 
RJ RH RH1 


YES 


Search DP List 
L(SY2) 

RJ TS TSl 


Found 



Not found 


Search CB List 
for L(SY2) 

RJ TA TA1 


Not found 



Set op position 
of Temp. 


'NO 


( Test for fixedXygg 

or fltpt. 1—>( Exit 

(SY10) QJ 



T 



YES 


Test for 
pseudo op 
QJ (TS4) 


NO 

^Exit^ 


, J „ /llT YES/Test for fixed or 

Assign 64 type C/W fltpU qj (SYlO) 


NO 


Assign 65 type C/W 
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731 









Increment Region f b* | BV j 



732 
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734 


Get 

next 

symbol 

RJ 

SY 

SY1 


Send SZ2-SZ12 to 
ZZ2-ZZ12 


Save SY2 
in Temp. (5) 


Test asterisk No /Test for 
)—-34 


Error No absolute 
value sign should be 
detected 

jNo .~ 

to /Test WL13 
—4 Q jump ) 


/ Test for 
absolute value r 
y sign “l” y 
No 

'"Test for: 

with, sentence) 


Get next 
symbol 


Test Temp (D 
Q jump 


k Yes^ Error a is fi/ed pt. 
I * or illegal symbol 


Test asterisk 

it#** 

^ ~No 

_ ¥ _ 

Test for "E" 


Scientific notation 
routine after detecting" 
: UV_' 


Scientific notation 
routine after detecting 
"E": TV_ 


Send converted value 
to IQ2->Temp. (7) 


ERROR 

Illegal symbol 
ZF 


Send ZZ2 ZZ12 Test for float- 

to SY2 - SY12 * J " 9 J°n T t B n°nni 
_ stant RJ RB RBI 

Vary Translator Flow Charts ~ HV-Constant Branch 


Scientific Notation to 
floating pt. RJ IQ 
IQ1 RJ GG2 GG 















Fixed or floating point 
constant branch 


JV 
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IPV 1 Preface for Indicator Region 
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Detection of ^asterisk; proceedings | UV | 


TP ZZ2 GG4 
TP ZZ3 GG5 


TN RS3 IQ3 


RG GG2 GG 


Get next symbol Convert XS3 dec. t< 

octal RS2 RS 


Test flag (3V j No ^ TP GG3 IQ2 _JTest XS3 "10’M No ^ Error 


Preset flag 


Get next symbol 


Error 


TN GG3 IQ2 


Routine for 
"E” 


. Yes /Test POW 
~ V XS3 


/''Superior to lower"" 
case translator of 
figures SY2 - ^RJ 
V IN INI ^ 


f Test for super- 
t script (-) (SZ) i 





















Detection of ”E” Procedings 



Enter 


Get next 
symbol 


Get next 
symbo1 


r Yes ( Test pos. sign 


Check fxd pt | 


constant 
RJ RD RD1 


No 


Convert XS3 
to octal 
RS2 RS 


TP RS3 IQ3 


v 

Exit 


[Test minus sign ) Yes^ Get next 

symbol 


Exit 

,_L_ 

TN RS3 IQ3 

-v— 


Convert XS3 
to octal 
RS2 RS 

Check fixed pt 
■> constant RJ 
RD RD1 
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Ifas vary file 
exceeded its 
^ maximum? 


Is current vary 
sentence within 
subprogram? ^ 


Enter vary file 
with sentence 
number of last 
statement in range 


Insert vary call 
word and number of 
"with* words into 
vary file 


-© 


'^Ts current sen^ 
tence = sentence 
number in vary 


Advance vary 
file word 
count by two 


'(a ) = 

v ( X)? 


/Is sentence num~X 
ber at address given Vi< 
by (r)> sentence nian-4 - 
, ber at address qiveiy 
V by (PC)? Jy 


Set ( a ) 

= (x ) 


r x 

3 

x x 


Advance 
(x) by 
two 


'"Has there beenX 
a previous vary 
yin a subprogram^/ 


Set indicator and 
length of vary 
files for vary sen- 
tenceyinmain program 


" 6 ' 
V V 


Set parameter to 
print: TOO MANY 
VARY SENTENCES I 


Set parameter to 
print: VARY MUST / Print 
NOT BE LAST IN X alarm 

RANGE OF VARY \ / 


:o 


Set parameter to 
print: RANGE OF 
INNER VARY EX¬ 
TENDS BEYOND 
RANGE OF OUTER 
VARY 



Print 

alarm 


Address of last un¬ 
closed item in vary 
file* 


Vary Translator Flow Charts - Build Vary File 


Address for inserting 
next item in vary 
file. 






















Regions-VARY Translator 


RE MC4400 
RE LV4566 
RE VV4635 
RE FV4650 
RE BV4663 
RE CV4704 
RE GV4725 
RE HV5040 
RE JV5117 
RE WV5151 
RE DV5214 
RE PV5243 
RE IV5310 
RE SV5362 
RE VZ5417 
RE UV5433 
RE TV5465 
RE EV5506 
RE VT5521 
RE PL5553 
RE ID5613 
RE IM5743 
RE IN6057 
RE 106107 
RE IQ6136 
RE IR6265 
RE ZA6277 
RE ZB6314 
RE ZC6330 
RE ZD6347 
RE ZE6364 
RE ZF6401 
RE ZG6423 
RE ZH6437 
RE ZI6455 
RE ZJ6500 
RE ZK6521 
RE ZL6533 
RE ZM6551 
RE VP6573 
RE VQ6633 
RE VS6647 
RE NV6655 
RE IS6711 
RE ZZ6714 
RE SC6726 
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DTT 

TC^ P 70 P 7 

* 

RE 

XV6730 

RE 

XU6735 

RE 

ZN6760 


Translation Subroutine regions are also needed to assemble the VARY 
Translator tapes. 

Also included, in the reco tapes of the VARY Translator are ID (130^ 
lines in length), IM( 114„). IN(30 o ), ICK27J, JH127J. IR(12„). and IS (a set 

U O O O' O' 

of 3 addresses used as temporaries). With one 2-line exception, this reco 
coding is identical to the regions similarly named in the IF String-Out where 
they are annotated and reproduced in this manual. 

The 2-line exception is: 


IA 

ID3 



RJ 

DV 

DV1 

Build Variable List File 

MJ 

0 

MC40 

Jump back to vary Translator Control 

CA 

ID5 




743 



Master Control for Vary Translator 



IA 

MC 



0 

MJ 

0 

CT 


1 

MJ 

0 

XV 

Jump out for correction; then process 

2 

RJ 

vv 

VV1 

Test duplication of variable 

3 

RJ 

FV 

FV1 

First value region or ’a' 


4 

TP 

SY11 

0 1 

i Test for digit or decimal pt. 


5 

QJ 

MC6 

MC12 J 

r 


6 

RJ 

HV 

HV1 1 



7 

RJ 

JV 

JV1 

r Constant branch 

► 

10 

RJ 

WV 

WV1 J 

1 


11 

MJ 

0 

MC13 



12 

RJ 

GV 

GV1 

Variable branch 


13 

RA 

PL10 

PL2 

Increase CTR+1 —>CTR 

14 

RJ 

BV 

BV1 

Increment region or "b" 


15 

TP 

SY11 

Q 



16 

QJ 

MC17 

MC23 



17 

RJ 

HV 

HV1 ] 



20 

RJ 

JV 

JV1 | 

’ Constant branch 


21 

RJ 

WV 

WV1 J 



22 

MJ 

0 

MC24 



23 

RJ 

GV 

GV1 

Variable branch 


24 

RA 

PL10 

PL2 


25 

RJ 

CV 

CV1 

Bound phase or "c" 


26 

TP 

SY11 

0 



27 

QJ 

MC30 

MC34 


► 

30 

RJ 

HV 

HV1 i 



31 

RJ 

JV 

JV1 

■ Constant branch 


32 

RJ 

WV 

WV1 J 



33 

MJ 

0 

MC35 



34 

RJ 

GV 

GV1 

Variable branch 


35 

RJ 

DV 

DV1 

Build Variable File 

36 

RJ 

PV 

PV1 

Build preface region to indicator 

37 

RJ 

IV 

IV1 

Build indicator 

40 

RJ 

sv 

SV1 

Mover region 

41 

TP 

PL33 

A 

Possible WITH or SENTEN 

42 

EJ 

MCI 54 

MC47 

Test WITH 

43 

EJ 

MC152 

ZL1 

Test A. (Incomplete sentence) 

44 

EJ 

MC153 

MC54 

Test SENTEN 

45 

RJ 

SY 

SY1 

Get next symbol 

46 

MJ 

0 

MC42 

Go back & test for (WITH,A. , SENTEN) 

47 

RA 

WL4 

PLl 


50 

TJ 

MC155 

MC52 

Test no. of WITH words < 17^ 


51 

MJ 

0 

ZI1 


52 

RJ 

vz 

VZ1 

Presetting region 

53 

MJ 

0 

MCI 

Continue processing modifiers 

54 

RJ 

SY 

SYl 

Get next symbol which should be digit 

55 

TP 

SY11 

Q l 

1 Is it digit? NoError 


56 

QJ 

MC57 

ZJ1 J 


57 

TP 

SY2 

LN4 1 


744 



L 


60 

RJ 

LN2 

LN J Put line number in proper form 

61 

TP 

LN3 

WL5 

Line number —» string-out 

62 

TP 

LN3 

A 1 

1 

L 

63 

n t 

IX 

IXi J 

' Put line number in IZ list 

64 

RJ 

SY 

SY1 


65 

EJ 

MCI 46 

MC70 

Test THRU 

66 

EJ 

MC147 

MC70 

Test THROUGH 

67 

MJ 

0 

MC157 

Jump out to Test A. 

70 

RJ 

SY 

SY1 

Look for sentence number 

71 

EJ 

MCI 53 

MC70 

Test SENTENCE 

72 

TP 

SYll 

Q 1 

L 

73 

HT 

MC74 

ZJl J 

( Toet oDntonAO numkpr 

' XV/4 U OVli llUUlbCl 

74 

TP 

SY2 

LN4 i 

1 

75 

RJ 

LN2 

LN J 

1 Put line number in proper form 

76 

MJ 

0 

MC1631 

1 -> TP LN3 WL6 insert 

77 

RJ 

IX 

1X1 J 

i Put line no. in IZ list 

100 

MJ 

0 

MCI 02 


101 

TP 

WL5 

WL6 

THRU - THROUGH, not detected 

102 

RJ 

SY 

SY1 


103 

EJ 

MCI 52 

MCI 36 

Test "A." 

104 

EJ 

MC151 

MC122 

Test "TO" 

105 

EJ 

MCI 50 

MCI 07 

Test RESUME 

106 

MJ 

0 

XU10 

Jump for correction 

107 

RJ 

SY 

SY1 ' 


110 

EJ 

MC153 

MC107 

Test SENTENCE 

111 

TP 

SYll 

Q 

T 

112 

QJ 

MCI 13 

ZJl 

J Test for digit 

113 

TP 

SY2 

LN4 


114 

RJ 

LN2 

LN 

5 [■ Process line number 

115 

TP 

LN3 

WL7 

w Line number —> string-out 

116 

TP 

LN3 

A 

05 1 

117 

RJ 

IX 

1X1 

J Line number —» list IZ 

120 

TP 

PL4 

WL10 . 


121 

MJ 

0 

MCI 33 

Jump to test for A. 

122 

RJ 

SY 

SY1 


*■ nn 

ICO 

EJ 

MC153 

MCI22 

Test SENTENCE 

124 

TP 

SYll 

Q 1 

L 

125 

QJ 

MC126 

ZJl J 

i Test for digit 

126 

TP 

SY2 

LN4 1 

L 

127 

RJ 

LN2 

LN J 

' Process line number 

130 

TP 

LN3 

WL7 

Line number -» string-out 

131 

TP 

LN3 

A 1 


132 

RJ 

IX 

1X1 J 

Line number —> list IZ 

133 

RJ 

SY 

SY1 


134 

EJ 

MC152 

MC136 

Test A . 

135 

MJ 

0 

ZK1 


136 

RJ 

VP 

VP1 

Build Vary File 

137 

RJ 

vz 

VZ1 

Presetting region 

140 

TV 

SV11 

PL30 ' 

^^i+l —^ A 

141 

TP 

PL30 

A 

. WLa+x - WL = n 

142 

ST 

MC156 

A 


143 

AT 

PL 

WL 

Put no. of words in string-out— > WL 
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144 

RJ 

SS 

145 

MJ 

0 

146 

66 

33546 

147 

66 

33545 

150 

54 

30656 

151 

66 

51777 

152 

01 

22777 

153 

65 

30506 

154 

71 

34663 

155 

0 

0 

156 

0 

0 

157 

EJ 

MCI 52 

160 

MJ 

0 

161 

TP 

WL5 

162 

MJ 

0 

163 

TP 

LN3 

164 

TP 

LN3 

165 

MJ 

0 


CA 

MC166 


SSI 

MC 


77777 

THRU 

16732 

THROUGH 

74730 

RESUME 

77777 

TO 

77777 

A . 

63050 

SENTENCE 

37777 

WITH 

20 

WL 

MC161 ’ 

(20) 8 

MC101 

WL6 

Test A . 

MCI36 . 
WL6 

A 

MC77 
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Process a Region 



IA 

LV 


0 

MJ 

0 

30000 

1 

RJ 

SY 

SY1 

2 

TP 

SY7 

Q \ 

3 

QJ 

LV4 

ZAl J 

4 

TP 

SY2 

VT20 

5 

RJ 

RH 

RH1 

6 

RJ 

TS 

TSl 

7 

MJ 

0 

LV23 

10 

TP 

TS3 

A 

11 

TJ 

LV45 

ZAl . 

12 

TJ 

LV46 

LV14 

13 

MJ 

0 

ZAl 

14 

TP 

TS3 

SV22 

15 

TP 

TS4 

Q 1 

16 

QJ 

LV17 

LV J 

17 

TP 

SY10 

Q \ 

20 

QJ 

LV 

LV21 J 

21 

RA 

SV22 

PL4 

22 

MJ 

0 

LV 

23 

RJ 

TA 

TA1 

24 

MJ 

0 

LV33 

25 

TP 

TA4 

A 

26 

TJ 

LV45 

ZAl 

27 

TJ 

LV46 

LV31 

30 

MJ 

0 

ZAl , 

31 

TP 

TA4 

SV22 

32 

MJ 

0 

LV 

33 

TP 

SY10 

0 1 

34 

QJ 

LV35 

LV40 J 

35 

RJ 

TK 

TK1 

36 

AT 

PL14 

SV22 

37 

MJ 

0 

LV42 

40 

RJ 

TK 

TK1 

41 

AT 

PL15 

SV22 

42 

TJ 

LV45 

ZAl 

43 

TJ 

LV46 

XU 

44 

MJ 

0 

ZAl 

45 

0 

0 

63000 

46 

0 

0 

67000 


CA 

LV47 



Test for 1st character, a letter 

a —» Temp a 
Test variable type symbol 
Search DP list 
Not in list return 

Test 62777 < CW < 66777 

C/W -> Temp © 

Test for Pseudo op 

Test for fixed or fltpt. 

Op. portion of Temp (T2) to 40 

Search Combination List 
Not in list return 

Test 62777< C/W < 66777 


C/W of symbol in list —> Temp @ 


Test for fixed or fltpt. 

Sequence number —> A 

Fixed pt«; 64000 C/W —> Temp (0?) 

Sequence number —> A 
65000 C/W Temp @ 

Jump out for correction 
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Search Variable List "VL" for Modifiers Previously Mentioned 



IA 

W 



0 

MJ 

0 

30000 


1 

SP 

VL 

0 

VLn+l “*■ A 

2 

ss 

VV11 

0 

-VLl = n = # words - 1 

3 

SA 

W12 

0 

Add J value 

4 

TU 

A 

VV6 


5 

SP 

VT20 

0 

Variable —> A 

6 

RP 

[30000] VV \ 

Search list VL 

7 

EJ 

VL1 

ZM1 J 


10 

MJ 

0 

VV 


11 

0 

VL1 

0 


12 

0 

20000 

0 



CA 

VV13 




First Value "a" Region 



IA 

FV 


0 

MJ 

0 

30000 

1 

TP 

SY10 

PL31 

2 

RJ 

SY 

SYl 

3 

EJ 

PL16 

FV5 

4 

MJ 

0 

FV7 

5 

TP 

PL4 

PL23 

6 

MJ 

0 

FV2 

7 

EJ 

PL13 

FVll 

10 

MJ 

0 

FV 

11 

RA 

SV23 

PL4 

12 

MJ 

0 

FV2 


CA 

FV13 



Set Temp (l)indicator for fixed or floating 
point 

Test (-) 

L(40 t 0 t 0)flag @ 

Test (|) 

Exit to Control CMC) 

Set Op. of Temp Q) to *40* 
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Increment Region "b’ 



IA 

BV 




0 

MJ 

0 

30000 

Exit 


1 

RJ 

SY 

SY1 



2 

TP 

PL33 

A \ 

Temp ® €(( ) —> A 


3 

EJ 

PL17 

BV10 J 

Test ( ( ) 


A 

41 

TP 

SY2 

A 1 

Test 


5 

EJ 

PL17 

BV7 i 

((> 


6 

MJ 

0 

ZB1 

Error print and exit 


7 

RJ 

SY 

SY1 


10 

TP 

SY2 

A 1 

Test 


11 

EJ 

PL13 

BV13 J 

(1) 


12 

MJ 

0 

BV15 



13 

RA 

SV24 

PM 

Set Op. of Temp (53) 

to *40* 

14 

MJ 

0 

BV7 



15 

EJ 

PL16 

BV17 

Test for (-) 


16 

MJ 

0 

BV 

Set Op. of flag (3) to 


17 

TP 

PL4 

PL23 

*40* minus 

20 

MJ 

0 

BV7 



CA 

BV21 

Bound 

Phase or Region "c* 



IA 

CV 




0 

MJ 

0 

30000 



1 

RJ 

SY 

SYl 

Pick ud ) 

Temp ( 3 ) ^ ( ) ) ->A 


2 

TP 

PL33 

A 1 


3 

EJ 

PL20 

CV10 J 

Test ( )) 


4 

TP 

SY2 

A } 

Test ( ) ) 


5 

T7 T 
EiU 

nr oa 

Jl 

V-fV 1 ) 



6 

MJ 

0 

ZBl 

Error print and exit 


7 

RJ 

SY 

SYl 

© 


10 

TP 

SY2 

A \ 

Test (1) 


11 

EJ 

PL13 

CV13 I 



12 

MJ 

0 

CV15 



13 

RA 

SV25 

PM 

Set Op. of Temp @ to 

”40” 

14 

MJ 

0 

CV7 



15 

EJ 

PL16 

CV17 

Test for (-) 


16 

MJ 

0 

CV 

Set Op. of flag @ to 


17 

TP 

PM 

PL23 

M 40” minus 

20 

MJ 

0 

CV7 



CA 

CV21 
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Variable Branch 



IA 

GV 


0 

MJ 

0 

30000 

1 

TP 

PL4 

PL22 

2 

TP 

PL31 

A 

3 

EJ 

SY10 

GV56 

4 

MJ 

0 

ZC1 

5 

RJ 

TS 

TSl 

6 

MJ 

0 

GV13 

7 

RA 

GV10 

PL10 

10 

RA 

[SV23] 

TS3 

11 

TP 

GV46 

GV10 

12 

MJ 

0 

XU21 

13 

RJ 

TA 

TA1 

14 

MJ 

0 

GV21 

15 

RA 

GV16 

PL10 

16 

RA 

[SV23] 

TA4 

17 

TP 

GV47 

GV16 

20 

MJ 

0 

XU21 

21 

TP 

PL31 

Q 

22 

QJ 

GV23 

GV34 

23 

RA 

GV27 

PL10 1 

24 

RA 

GV31 

PL10 1 

25 

RJ 

TK 

TK1 

26 

TP 

A 

PL30 

27 

RA 

[SV23] 

PL30 

30 

TP 

GV50 

GV27 

31 

RA 

[SV23] 

GV54 

32 

TP 

GV51 

GV31 

33 

MJ 

0 

GV44 

34 

RA 

GV40 

PL10 1 

35 

RA 

GV42 

PL10 J 

36 

RJ 

TK 

TK1 

37 

TP 

A 

PL30 

40 

RA 

[SV23] 

PL30 

41 

TP 

GV50 

GV40 

42 

RA 

SV23 

GV55 

43 

TP 

GV52 

GV42 

44 

RJ 

VT 

XU-13 

45 

MJ 

0 

GV76 

46 

RA 

SV23 

TS3 ' 

47 

RA 

SV23 

TA4 

50 

RA 

SV23 

PL30 

51 

RA 

SV23 

GV54 

52 

RA 

SV23 

GV55 , 

53 

0 

0 

0 

54 

0 

0 

64000 

55 

0 

0 

65000 

56 

TP 

PL23 

Q 

57 

QJ 

GV60 

GV62 

60 

TP 

PL 

PL23 


Set flag © for VT to *40’ 

Temp © = SY10 a —>A 

Test consistency of fixed or fltpt. 

Error print 

Search DP list 

Not in list - go search CB 

C/W —»Temp (13,14,15) 

Preset GV10 

Go to build table 

Search CB list 

Not in list - go assign C/W 

C/W—>>Temp (13,14,15) 

Preset GV16 

vwv'^vvyyvvvvyvvn 

Go build table 

Temp (I) = SY10 a —>Q 

Test for fixed or fltpt. variable 

Modifiers 

Obtain proper sequence # —> A 
A -> Temp © 

Preset GV27 ■ Fxd. pt. 

Temp (13,14,15) + 64000 
Preset GV31 
^GoTbuiTd^tab le 

Modifiers 


Preset GV40 

Temp (13,14,15) + 65000 
Preset GV42 

Build table, but make correction first 


Presetters 


Flag ®—>Q (minus sign indicator) 
Reset flag ® to 0 
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61 

MJ 

0 

zul 

Error print 


62 

TP 

SY7 

Q \ 

Test 


63 

QJ 

GV64 

ZAl J 

Error for first character 

a letter 

64 

RJ 

RH 

mi 

RHl 

Test for variable type symbol 

65 

MJ 

0 

GV5 



66 

RA 

GV67 

PL10 



67 

TP 

[SV23] 

Q 



70 

TP 

GV75 

GV67 



71 

QJ 

GV72 

GV 

Test for opening absolute 

value sign 

72 

RJ 

SY 

SY1 

Detected 


73 

EJ 

PL13 

GV 

Test for closing absolute 

value sign 

74 

MJ 

0 

ZE1 

Error print; inconsistent 

use of absolute 

75 

TP 

SV23 

Q 

Presetter 


76 

RA 

GV77 

PL10 



77 

TP 

SV23 

A 



100 

TP 

GV106 

GV77 



101 

MJ 

0 

GV107 



102 

TJ 

GV105 

GV66 



103 

MJ 

0 

ZAl 



104 

0 

0 

63000 



105 

0 

0 

67000 



106 

TP 

SV23 

A 



107 

TP 

UV31 

Q 

L(O t 77777,77777) Q 


110 

QT 

A 

A 



111 

TJ 

GV104 

ZAl 



112 

MJ 

0 

GV102 




CA 

GV113 
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Constant Branch 


IA HV 

0 MJ 0 [30000] 

1 RJ SY SY1 Senten: 1 

2 RP 30011 HV4 \ 

3 TP SZ2 ZZ2 J Save this information 

4 EJ PL13 HV6 Test (|) (absolute sign) 

5 MJ 0 HV17 No. (| detected 

6 RJ SY SY1 ( 

7 MJ 0 HV45 Test (*) —> set up routine 

10 EJ PL6 TV1 Test (E)—> set up routine 

11 RA HV12 PL10 

12 TP [SV23] Q (|) detected 

13 TP HV41 HV12 Preset HV12 

14 QJ HV16 HV15 

15 MJ 0 ZEl Error print and exit 

16 MJ 0 HV Go to JV via MC 

17 EJ PL17 HV22 Test (() 

20 EJ PL20 HV22 Test ()) 

21 MJ 0 HV42 Jump out for correction 

22 TP SY2 PL33 (() or ()) ->Temp® 

23 MJ 0 HV Go to JV via MC 

24 TP PL31 Q Temp ®-»Q 

25 QJ HV26 HV55 Test fixed or floating point 

26 MJ 0 ZCl Error print and exit 

27 EJ PL7 UV1 Test (*)—> set up routine 

30 EJ PL6 TV1 Test (E)—» set up routine 

31 MJ 0 ZF1 Error print and exit 

32 RP 30011 HV34 

33 TP ZZ2 SY2 

34 RJ RB RBI 

35 RJ IQ IQ1 

36 TP IQ2 PL30 Send value to temp © 

37 RA HV PL1 Set up for return to WV 

40 MJ 0 HV 

41 TP SV23 Q Presetter for HV12 

42 EJ MCI54 HV22 Test WITH 

43 EJ MC153 HV22 Test SENTEN 

44 MJ 0 HV50 

45 TP SY2 PL33 

46 EJ PL7 UV1 

47 MJ 0 HV10 . 

50 RA HV51 PL10 No presetter 

51 TP [SV23] Q ' Test for previous mention of absolute value sign 

52 TP HV54 HV51 , 

53 QJ ZEl HV24 

54 TP SV23 Q 

55 TP SY2 A 

56 MJ 0 HV27 

CA HV57 
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Fixed or Floating Point Constant Branch 


0 

IA 

MJ 

JV 

0 

30000 


1 

RP 

30011 

JV3 


2 

TP 

ZZ2 

SY2 


3 

TP 

PL31 

Q 

Fixed or fltpt. indicator *-> Q 

4 

QJ 

JV5 

JV17 

5 

RJ 

RD 

RD1 

Fixed-pt. test 

a 

kj 

TD 

A *. 

SY2 

RS4 I 

XS-3 to octal conversion 

7 

RJ 

RS2 

RS J 

Test flag © for (-) indication 

10 

TP 

PL23 

Q \ 

11 

QJ 

JV12 

JV15 J 

12 

TN 

RS3 

PL30 

Negative value —> Temp (T) 

13 

TP 

PL 

PL23 

0—>flag © 

14 

MJ 

0 

JV 

Exit to WV via MC 

15 

TP 

RS3 

PL30 

Positive value —> Temp (J) 

16 

MJ 

0 

JV 

Exit to WV via MC 

17 

RJ 

RB 

RBI 


20 

TP 

SY2 

GG4 


21 

TP 

SY3 

GG5 


22 

RJ 

GG2 

GG 


23 

TP 

PL23 

Q 


24 

QJ 

JV25 

JV30 


25 

TN 

GG3 

PL30 

Negative value —» Temp (T) 

26 

TP 

PL 

PL23 

27 

MJ 

0 

JV 

Exit to WV via MC 

30 

TP 

GG3 

PL30 

Positive value —> Temp (J) 

31 

MJ 

0 

JV 

Exit to WV via MC 


CA 

JV32 




Fixed 

Pt. 


Floating 

Pt. 
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Exit for Constant Branch 



TA 

wv 


0 

MJ 

0 

30000 

1 

RA 

WV2 

PL10 

2 

TP 

[SV23] 

Q 

3 

TP 

WV36 

WV2 

4 

QJ 

WV5 

WV7 

5 

TM 

PL30 

PL34 

6 

MJ 

0 

WV10 

7 

TP 

PL30 

PL34 

10 

RJ 

VT 

VT1 

11 

TP 

PL34 

A 

12 

RJ 

GW 

GW1 

13 

RA 

WV14 

PL10 

14 

RA 

[SV23] 

Q 

15 

TP 

WV37 

WV14 

16 

TP 

A 

Q 

17 

QJ 

WV20 

wv 

20 

TP 

WV35 

Q 

21 

RA 

WV22 

PL10 

22 

QT 

[SV23] 

PL30 

23 

TP 

WV40 

WV22 

24 

TP 

PL10 

0 

25 

IQ 

Q 

25 

26 

RA 

WV27 

Q 

27 

TP 

PL 

[SV23] 

30 

TP 

WV41 

WV27 

31 

RA 

WV32 

PL10 

32 

RA 

[SV23] 

PL30 

33 

TP 

WV42 

WV32 

34 

MJ 

0 

WV 

35 

37 

77777 

77777 

36 

TP 

SV23 

Q 

37 

RA 

SV23 

Q 

40 

QT 

SV23 

PL30 

41 

TP 

PL 

SV23 

42 

RA 

SV23 

PL30 


CA 

WV43 



Set up for (|) detection 

Magnitude of constant -> Temp (4) 

Constant — > Temp (3) 

Set up reference table 

Search and assign C/W from constant pool 

C/W Temp @ 

Test for *40* indicator 
L(3777....) —> Q 

Mask C/W —> Temp (T) 

Shift counter PL10 to V 

Clear cell (set Op. to 0) 

C/W—> Temp © 
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O' Ul GO IO t— OHI>W^05MH 


Build Variable List 


IA 

DV 





MJ 

0 

30000 




TV 

VL 

DV2 



Counter —> DV2 v 

TP 

VT20 

[30000] 



a ->VL n ; n > 1 

RA 

VL 

PL3 



Increase counter VL by (0,1,1) 

TP 

VT25 

Q 


L 

Test rt b H for variable 

QJ 

DV12 

DV6 

- 

r 


TV 

VL 

DV7 




TP 

PL 

[30000] 


- 

No variable.*. 0 —> VL list 

RA 

VL 

PL3 

■4 


Increase Counter VL by (0,1,1) to test"c M 

MJ 

0 

DV15 




TV 

VL 

DV13 




TP 

VT22 

[30000] 


* 

Insert variable in list 

RA 

VL 

PL3 



Increase counter VL by (0,1,1) 

TP 

VT26 

Q 


► 

Test "c" for variable 

QJ 

DV23 

DV17 

. 



TV 

VL 

DV20 




TP 

PL 

[30000] 


> 

No variable.*. 0 —>VL list 

RA 

VL 

PL3 

. 



MJ 

0 

DV 



To preface region PV via MC 

TV 

VL 

DV24 




TP 

VT23 

[30000] 


► 

Insert variable in list 

RA 

VL 

PL3 




MJ 

0 

DV 



Exit to preface region PV via MC 

CA 

DV27 
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Preface for Indicator Region 



IA 

PV 



0 

MJ 

0 

30000 


Test i 

TP 

VT24 

Q 

a' -»Q 

%. 2 

QJ 

PV21 

PV3 

© 

ii 

»-H 

CM 

> 

CL 

3 

TP 

VT25 

0 

b’-» 0 

4 

QJ 

PV21 

PV5 

PV21 = ® 

5 

TP 

VT26 

0 

C '—> 0 

6 

QJ 

PV21 

PV7 

PV21 = ® 

7 

TP 

VT22 

A 

1 Test b = 0 

10 

ZJ 

PV11 

ZHl . 

1 Error print infinite loop designed 

11 

TP 

VT21 

A 

a —> A 

12 

ST 

VT23 

A 

a-c —> A 

13 

ZJ 

PV14 

PV 


14 

SJ 

PV15 

PV17 

0 —> A 

15 

TP 

VT22 

A 1 

Test b > 0; if not, error print ; 

16 

SJ 

ZH1 

PV J 
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Mover Region 
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(OP, 0, C/W) -> 

3 

TU 

A 

[SV22] 
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MJ 

0 

SV30 


16 

0 

0 

3 

Index 

17 

0 

0 

4 

Index 

20 

0 

SV21 

0 


21 

0 

0 

0 

Temp (Ti) 

22 

0 

0 

0 

Temp (12) 

23 

0 

0 

0 

Temp y.3) 
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Presetter Region for Re-entry to LV 
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0 —> Temps (n) - @ 


for Detection of Asterisk* 5 * 
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Error print 
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No superscript (-) 
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Subroutine for Detection of "E" 



IA 

TV 



0 

MJ 

0 

EV1 

Exit 

1 

RJ 

SY 

SY1 


2 

EJ 

PL16 

TV13 

Test (-) 

3 

EJ 

PL36 

TV5 

Test (+) 

4 

MJ 

0 

TV6 


5 

RJ 

SY 

SY1 
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IA 

E V 



0 

MJ 

0 

HV32 


1 

TP 

ZZ2 

GG4 
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6 

TP 

PL 

PL23 

Reset flag 

7 

TN 

GG3 

IQ2 

10 

MJ 

0 

EV 


11 

TP 

GG3 

IQ& 


12 

MJ 

0 

EV 



CA 

EV13 




760 



Set Up Reference Table Used by VL r n WX" t and Preface 


Table 



IA 

VT 




0 

MJ 
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[30000] 
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1 

RA 

PL11 

PL1 

Entrance. CTR1 4- 1 —> CTR1 

2 

TP 

PL22 

Q 

Flag ©-*-0 

3 

QJ 

VT10 

VT4 

Test for variable (-) 

4 

RA 

VT5 

PL11 1 

j Constant 

5 

TP 

PL34 

[VT20] 

r VT20 = Beginning of table 

6 

TP 

\rro7 

V | 

\rv%. 

» J-O J 

I Preset VT5 

7 

MJ 

0 

VT16 



10 

RA 

VTll 

PLll * 

► Variable 

11 

TP 

PL4 

[VT231 

L(40 r 0,0) —> Table 

12 

TP 

VT30 

VTll 

Preset VTll 

13 

RA 

VT14 

PLll 



14 

TP 

SY2 

[VT20] 

Symbol —> Table 

15 
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VT31 

VT14 . 

Preset VT14 

16 

TP 

PL 

PL22 

Reset flag © to 0 

17 

MJ 

0 
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20 
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0 

0 
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21 

0 

0 

0 

a, 
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22 

0 

0 

0 

b. 
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23 

0 

0 

0 

c, i 

the upper limit 

24 

0 

0 
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25 

0 

0 
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b* 

* (-) indicates Variable 
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0 
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0 
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27 
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TP 
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Constant Pool 
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56 
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20 
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21 
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33 
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IA 
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0 RJ XV XV 3 ' 

1 RJ LV LVl 

2 MJ 0 MC2 * 

3 (fp fOOOf Ml 

4 TP PL WL4. 

CA XV 5 


POW 

E 

* 

CTR Slot for Temp 11 - Temp 
CTR1 Slot for ® - © ; (aj) 


- lower case minus 
( 

) 

Flag 
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X-S3 10 
1 



Temp T 
Temp ® 
Temp © 
Temp © 
Temp (J) 


+ lower case plus 


Zeroizes critical part 
of Vary Stringout WL4 - WL10 
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Enter 


Get next svmbol RJ SY SY1 


RESUME STRING-OUT 
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”No sentence no.” 
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(sentence no. referred to) 


RJ LN2 LNO 
Processor TP LN3 WL4 
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Format of Output 
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output 

+1 Line number 

+2 RESUME Title of string-out 

+3 Call word of sentence 

+4 "Jump to” line number 
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RESUME STRING-OUT 
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Flow Chart for Jump String-Out 
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JUMP STRING-OUT 


Following JUMP in this instruction there should be the word TO. If this 
word does not appear in this sequence, the following print-out occurs after 

string-out has been completed: Sentence_Hasbeen interpreted To Mean — 

Jump To Sentence_. No reference is made to the error routine with this 

print-out. 

Any combination of the symbols - TO, SENTEN, STATEM, LINE, NUMBER, NO., 
SENT. - may occur following Jump. The only essential requirement that the 
routine makes is that, if or when none of the above symbols appear, the symbol 
under surveillance must be the line number to which the jump is to be made. 

Of course, the symbols as shown above are merely the beginning in some 
instances of a more complete word. For example, STATEM is the first line output 
of the symbol STATEMENT. The routine only examines the first-line output of 
any symbol. 

Each time one of the above symbols is recognized, a return is made to the 
"Get Next Symbol Routine" for the next symbol. Eventually the loop of 
recognition of these symbols must be broken by a symbol not in the group. 

If a A . occurs before the line number has appeared, the error routine 

is referenced and the print-out is given: Sentence_Has No Line Number 

Following Jump. 

If the loop of recognition of the 7 above-named symbols is broken by a 
symbol which exceeds 6 characters, the error routine is referenced, the string- 

out is terminated, and the print-out reads: Sentence_Is Not In Correct 

Form. The theory behind this step is that this non-recognized symbol should 
be the line number and, as such, have less than 7 characters. 

If this assumed line number does have less than 7 characters, it is sent to 
the line-number routine to be put into standard form. See the Write-up on the 
line-number routine for what may happen to it here if it fails to meet the 
requirements of a line number. 

The output from the line-number routine is put in the proper place in the 
output. See jump generation write-up for the format of the jumpstring-out output. 
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Now a final reference is made to the "Get Next Symbol Routine." If the 
next symbol is not a A . , the error routine is referenced, the string-out 

is terminated, and the print-out is given: Sentence_Is Not in Correct 

Form. 

If this symbol is a A . , a check is made if the sentence is within a 
pseudo op and the proper entry made in the output accordingly. Next the refer¬ 
enced line number is sent to the reference list by using the IX routine. 

Finally the completed string-out is transferred to tape by using the WT tape- 
write routine. 
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Stop String-out Flow Chart 
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END OF TAPE STRING-OUT 


The End of Tape string-out routine closes out the translation phase 
(Pass I) of the Unicode compilation run. If there was a sub-program preceding 
the "End of Tape" sentence in the input program, the routine checks to see 
if an "Exit" instruction was included in the sub-program. If not, the error 
bit is set and "No exit in preceding sub-program." is typed on the on-line 
Flexowriter. The routine also checks to see if there was exactly one "Start" 
sentence in the input program and if not, types "More than one start sentence" 
or "No start sentence." on the Flexowriter, whichever applies. 

If there were previous errors in the program or if there was not exactly one 
"Start" sentence, the routine prints the number of excess constant referrals 
and the number of excess referenced-line referrals. The routine then rewinds 
the Unicode System Tape (Servo 1), the Library Tape (Servo 2), the String**out 
Tape (Servo 3 or 6) and the Corrected Problem Tape (Servo 5). The routine then 
types "End of Pass I. Correct errors listed above and recompile." on the on¬ 
line Flexowriter and stops. 

If there were no errors in the problem, the number of single valued 
variables is stored in fixed location 00007, the End of Tape callword (23000) 
is stored in the string-out, and the string-out is written on tape. The 
String-out Tape is then rewound and the routine exits to the Unicode Service 
Routine in preparation for the next phase of compilation. 
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Flow Charts for Subroutines Supplied to End-of-Tape String-Out 


Print-Out of FX13, Number of Excess Constant Referrals 



Print-Out of 1X47, Number of Excess Referenced-Line Referrals 



Single Digit Print-Out 


Entry 


Add dummy print 
command to octal 
digit to get 
proper Flex code 
for digit in list 


Printing out digit 
via its Flex code 
















Number lO 4 
to convert to 
decimal 



Printing decimal 
digit 


Printing quotient 
digit 
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Regions for End of Tape String-Out 
(String-out Subroutine Regions Also Required) 


RE ZA77000 
RE TV4400 
RE TW4435 
RE TX4447 
RE TY4455 
RE EA4502 
RE EE4520 
RE NU4537 
RE ZU4555 

IA TV 


0 

MJ 

0 

ZAlO 

Exit —> UNICODE serv. rtn. (read 1 blk UNICODE 





tape & jump to 1 st word) 

1 

TP 

TS4 

Q 

Heading bit —> Q 35 

2 

QJ 

TV 3 

TVlO 

Within sub-program (pseudo operation)? 

3 

TP 

VD 1 

Q 

Exit bit —» Q 3 J- 

4 

QJ 

TVlO 

TV5 

Was there exit inst, for preceding sub-program 

5 

RJ 

WA 

WA 1 


6 

TP 

75552 

UP3 

Parameter —^Uniprint 

7 

RJ 

DP 2 

UP 

Print: NO EXIT IN PRECEDING SUB-PROGRAM 

10 

TP 

VD 

A 

#Start instructions —■> A 

11 

EJ 

TX 

TW 

flStart inst. = 1 ? 

12 

ZJ 

TV 13 

TV 15 

#Start inst. = 0? No —> more than 1 start inst 

13 

TP 

TY 

UP 3 

Alarm #1 parameter —> Uniprint 

14 

MJ 

0 

TV 16 


15 

TP 

TY 6 

UP3 

Alarm #2 parameter —> Uniprint 

16 

RJ 

DP2 

UP 

Print alarm 

17 

RJ 

EA 

EA 1 

Print ^excess constant referrals 

20 

RJ 

EE 

EE 1 

Print * excess referenced-line referrals 

21 

TP 

TX2 

TH3 


22 

RJ 

TH2 

TH 

Rewind UNICOEE tape (servo #1) 

23 

TP 

TX3 

TH3 

24 

RJ 

TH2 

TH 

Rewind library tape (servo #2) 

25 

TP 

TX4 

A 

Codeword to rewind stringout tape (servo #3) 

—> a 

26 

AT 

TN 

TtI3 

Adv. servo no. by 3 servo #6 if 7 servos 

27 

RJ 

TH2 

TH 

Rewind stringout tape (servo #3 or # 6 ) 

30 

TP 

TX5 

TH3 


31 

RJ 

1112 

TH 

Rewind corrected problem tape (servo #5) 

32 

TP 

TY12 

UP3 


33 

RJ 

UP2 

UP 

Print: END OF PASS I. CORRECT ERRORS ETC. 

34 

MS 

0 

TV34 



CA 

TV 35 
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© 


0 

IA 

TP 

TW 

UZ2 

A 

* errors in problem —> A 

1 

ZJ 

TV17 

TW2 

Were there errors in program? 

2 

TP 

VBl 


3 single valued variables less 1 —> A 

3 

AT 

TX 

7 

# single valued variables —>"v” of fixed 

4 

TP 

TX 1 

WL3 

loc. 7 

End of tape callword (23000 )—> string-out 

5 

RJ 

ss 

SSI 

End of tape string-out—>tape 

6 

TP 

•TX4 

A 

Codeword to rewind string-out tape (servo #3) 

7 

AT 

TN 

TH3 

—> A 

Adv. servo no. by 3—>Servo #6 if 7 servos 

10 

RJ 

TH2 

TH 

Rewind string-out tape 

11 

MJ 

0 

TV 



CA 

TW12 





IA 

TX 





0 

0 

0 

1 




1 

0 

0 

23000 




2 

10 

1 

0 

Codeword 

to 

rewind UNICODE tape 

3 

10 

2 

0 

Codeword 

to 

rewind library tape 

4 

10 

3 

0 

Codeword 

to 

rewind string-out tape (5 servos) 

5 

10 

5 

0 

Codeword 

to 

rewind corrected problem tape 


CA 

TX 6 







IA 

TY 






0 

00 

TYl 

5 





1 

47 

51543 

00166 

M 

ORE 

A 

T 

2 

33 

24500 

15150 

H 

ANA 

0 

N 

3 

30 

01656 

62454 

E 

A S T 

A 

R 

4 

66 

01653 

05066 

T 

A s E 

N 

T 

5 

30 

50263 

02277 

E 

N C E 


77 

6 

00 

TY7 

3 





7 

50 

51016 

56624 

N 

o A s 

T 

A 

1 

X\J 

C.A 

44A1 4. 

UUVIU 

CQACA 

D 

li 

T 1 A c 

X / \ k/ 

T? 

u* 

M 

n 

66 

30502 

63022 

T 

E N C 

E 

# 

12 

00 

TY13 

12 





13 

30 

52070 

15131 

E 

N D A 

0 

F 

14 

01 

52246 

56501 

A 

PAS 

S 

A 

15 

34 

22010 

12651 

I 

. A A 

c 

0 

16 

54 

54302 

66601 

R 

R E C 

T 

A 

17 

30 

54545 

15465 

E 

R R 0 

R 

s 

20 

01 

46346 

56630 

A 

LIS 

T 

E 

21 

27 

01242 

55170 

D 

A A B 

0 

V 

22 

30 

01245 

02701 

E 

A A N 

D 

A 

23 

54 

30265 

14752 

R 

ECO 

M 

p 

24 

34 

46302 

27777 

I 

L E . 

77 

77 


CA 

TY25 
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Print-Out of FX13 f Number of Excess Constant Referrals 



IA 

EA 



0 

MJ 

0 

30000 

Exit 

1 

2 

TP 

ZJ 

FX13 

EA3 

A 1 

EA J 

Is the number in FX13 zero? 

3 

4 

TP 

RJ 

EA10 

UP2 

UP 3 \ 

UP J 

Print-Out: EXCESS CONSTANT REFERRALS — 

5 

6 

TP 

RJ 

FX13 

zu 

A \ 

ZU1 J 

Converts number to decimal and prints it out 

7 

MJ 

0 

EA 


10 

0 

EA11 

5 

Parameter for print-out 

11 

30 

72263 

06565 

EXCESS 

12 

01 

26515 

06566 

A C 0 N S T 

13 

24 

50660 

15430 

A N T A R E 

14 

31 

30545 

42446 

F E R R A L 

15 

65 

02027 

77777 

S - - 


CA 

EA16 




Print-Out of IX47 t Number of Excess Referenced-Line Referrals 



IA 

EE 






0 

MJ 

0 

30000 

Exit 



1 

2 

TP 

ZJ 

1X47 

EE 3 

A } 

EE J 

Is 

the 

number zero? 

3 

4 

TP 

RJ 

EE 10 

UP 2 

UP 3 \ 

UP J 

Print- 

Out: 

EXCESS REFERENCED-LINE REFERRALS _ 

5 

6 

TP 

RJ 

1X47 

ZU 

A \ 

ZU1 J 

Converts number to decimal and prints it out 

7 

MJ 

0 

EE 





10 

0 

EE 11 

6 

Parameter for Print-Out 

11 

30 

72263 

06565 

E 

X 

C E 

S S 

12 

01 

54303 

13054 

A 

R 

E F 

E R 

13 

30 

50263 

02702 

E 

N 

C E 

D - 

14 

46 

34503 

00154 

L 

I 

N E 

A R 

15 

30 

31305 

45424 

E 

F 

E R 

R A 

16 

46 

65020 

27777 

L 

S 

mm mm 



CA 

EE17 







Input Digit in A v . Single Digit Print-Out Routine 



0 

IA 

AT 

NU 

NU3 

NU1 

Entry. Adds dummy print command to octal 


1 

PR 

0 

0 

digit & puts into next instruction 
Prints out decimal digit 


2 

MJ 

0 

30000 

Exit 


3 

PR 

0 

NU4 

Dummy Print Command 


4 

0 

0 

37 

0 


5 

0 

0 

52 

1 

Flex 

6 

0 

0 

74 

2 

Codes 

7 

0 

0 

70 

3 
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10 

0 

0 

64 

4 


11 

0 

0 

62 

5 

Flex 

12 

0 

0 

66 

6 

Codes 

13 ' 

0 

0 

72 

7 


14 

0 

0 

60 

8 


15 

.0 

0 

33 

9 



CA 

NU16 




Input in A v . Octal to Decimal Print-Out for Numbers <77777 


Print-Out for Numbers > 77777 is: OVER 32,767 



IA 

zu 



0 

MJ 

0 

30000 

Exit 

1 

TJ 

ZU32 

ZU21 

Entry, Is 10 > no.? 

2 

TJ 

ZU33 

ZU17 

Is 10 2 > no? 

3 

TJ 

ZU34 

ZU15 

Is 10^ > no.? 

4 

TJ 

ZU35 

ZU13 

Is 10^ > no.? 

5 

TJ 

ZU41 

ZU11 

Is 100 OOOg > no.? 

6 

7 

TP 

RJ 

ZU31 

UP2 

UP 3 1 

UP J 

> 

Error print-out: OVER 32,767 

10 

MJ 

0 

ZU 

Jump to exit 

11 

DV 

ZU35 

Q 

t lO^ to convert to decimal 

12 

RJ 

ZU30 

ZU24 

Printing out digit 

13 

DV 

ZU34 

Q 

t c 103 to convert to decimal 

14 

RJ 

ZU30 

ZU24 

Printing digit 

15 

DV 

ZU33 

Q 

r 10 2 to convert to decimal 

16 

RJ 

ZU30 

ZU24 

Printing digit 

17 

DV 

ZU32 

Q 

f 10 to convert to decimal 

20 

RJ 

ZU30 

ZU24 

Printing digit 

21 

RJ 

NU2 

NU 

Printing digit 

22 

PR 

0 

ZU36 

Printing carriage return 

23 

MJ 

0 

ZU 

Jump to exit 

24 

TP 

A 

ZU42 1 


25 

TP 

n 

't: 

A 

Subroutine to facilitate continued convers 

26 

RJ 

NU2 

NU 

of octal number to decimal and print out 

27 

TP 

ZU42 

A 

decimal digit obtained 

30 

MJ 

0 

30000, 

31 

40 

ZU37 

2 

Parameter for print-out: OVER 32,767 

32 

0 

0 

12 

10 9 

33 

0 

0 

144 

10i 

34 

0 

0 

1750 

10 4 

35 

0 

0 

23420 

10 4 

36 

0 

0 

45 

Carriage return 

37 

51 

70305 

40106 

0 V E R A 3 

40 

05 

23121 

11222 

2,7 6 7. 

41 

0 

1 

0 

100 ,000 Q < 10 5 

Temporary 

42 

0 

0 

0 


CA 

ZU43 
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Exit String-out Flow Chart 








Exit String-Out 


RE SW4400 
RE SX4416 

String-Out Subroutine regions also needed to assemble this tape 
IA SW 

0 RJ SY SYl 

1 EJ SX SW5 

2 RJ WA WAl 

3 TP SX 1 UP 3 

4 RJ UP2 UP 

5 TP TS4 Q 

6 QJ SW12 SW7 

7 RJ WA WAl 

10 TP SX12 UP3 

11 RJ UP2 UP 

12 TV TS4 WL4 

13 RJ SS SSI 

14 TP SX 11 VD1 

15 MJ 0 CT 



CA 

SW16 









IA 

SX 








0 

01 

22777 

77777 

A 

• 





1 

40 

SX2 

6 







2 

65 

67523 

05431 

s 

U 

P 

E 

R 

F 

3 

46 

67516 

76501 

L 

U 

0 

U 

S 

A 

4 

65 

73472 

55146 

S 

Y 

M 

B 

0 

L 

5 

01 

34500 

13072 

A 

I 

N 

A 

E 

X 

6 

O A 

OH 

L L 

OOV/IO 

FOACA 

OOVJOVJ 

T 

X 

rv 

X 

A 

c 

t? 

La 

TVT 

n 

7 

66 

30502 

63022 

T 

E 

N 

c 

E 


10 

77 

0 

0 

mask 





11 

40 

0 

0 







12 

40 

SX13 

10 







13 

30 

72346 

60165 

E 

X 

I 

T 

A 

s 

14 

30 

50663 

05026 

E 

N 

T 

E 

N 

c 

15 

30 

01505 

16601 

E 

A 

N 

0 

T 

A 

16 

24 

46465 

17130 

A 

L 

L 

0 

W 

E 

17 

27 

01516 

76665 

D 

A 

0 

u 

T 

S 

20 

34 

27300 

16567 

I 

D 

E 

A 

S 

u 

21 

25 

01525 

45132 

B 

A 

P 

R 

0 

G 

22 

54 

24472 

27777 

R 

A 

M 

• 




CA 

SX23 









Get next symbol 

= A. ? 

No; get heading & 

Print out error sentence 

Yes; 

Op of TS4 = 40? (Within Subprogram?) 

No; get heading & 

Print out alarm sentence 

Yes, call word—»WL4 
Output to tape 

Indicator to VD1 that an Exit has been found 
in the last pseudo operation 
Exit 
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Start String-out Flow Chart 


—j 

sO 










START STRING-OUT 


RE S04400 


String-Out Subroutine regions are needed for assembly of this tape 



IA 

SU 


0 

RA 

VD 

SU17 

1 

SP 

WL2 

o 1 

2 

EJ 

SU20 

SU4 J 

3 

MJ 

0 

SU5 

4 

RJ 

XJ 

XJ 1 

5 

TP 

SU21 

WL2 

6 

TP 

SU22 

A ) 

7 

AT 

VB4 

WL3 J 

10 

RJ 

SY 

SY 1 

11 

EJ 

SU23 

SU15 

12 

RJ 

WA 

WAl 

13 

TP 

SU24 

UP 3 ‘ 

14 

RJ 

UP 2 

UP . 

15 

RJ 

SS 

SSI 

16 

MJ 

0 

CT 

17 

0 

0 

1 

20 

30 

53672 

46650 

21 

65 

66245 

46677 

22 

0 

0 

27000 

23 

01 

22777 

77777 

24 

40 

SU25 

7 

25 

65 

67523 

05431 

26 

46 

67516 

76501 

27 

65 

73472 

55146 

30 

01 

34500 

16566 

31 

24 

54660 

16530 

32 

50 

66305 

02630 

33 

22 

77777 

77777 


CA 

SU34 



Increase VD by 1 

WL2 = EQUATN ? 

No; do not increase VB4 
Yes ; increase VB4 
START -> WL2 

Call word + (VB4)—> WL3 
Get next symbol 

= A . ? 

No; error 
Print-out 

String-out—>tape 
Exit 

E Q D A T N 

S T A R T A 

C/W 

A . 

S U P E R F 

L U 0 U S A 

SYMBOL 
A I N A S T 

A R T A S E 

N T E N C E 
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EQUATION TRANSLATION ROUTINE 

When an equation is encountered in a UNICODE Program the translation con¬ 
trol transfers this routine from drum to core and jumps to it. The main func¬ 
tions of the routine are to make up a translation list to be used to generate 
machine code, assign call words to symbols, and detect and type out errors. 

The translation list is made up by each translation routine as an output 
(Region WL). The equation translation routine is unique in one use of this 
list in that it keeps another list within the translation list. This is called 
the function dummies list and occupies locations WL4-WL23 or 16 ^q locations. 
Hence there is room for 8 two-word items, the first word being the excess- 
three code for the symbol and the second word the dummy call word of this sym¬ 
bol. WLO-WL3 is the heading and the coded symbols start at WL24. 

In an equation before START, the symbol is assigned a call word as 
follows: 

1) If the symbol is in the Combination List, it already has a call word 
which determines the type of symbol with one exception. If the call 
word is 65xxx and the next symbol is an open parenthesis, the call 
word is changed to 66xxx and case 3 applies. If the symbol is that 
of a subscripted variable,the subscripts are assigned dummy call 
words and put in the list at WL4-WL23 and are handled similarly to 
the dummy arguments of a function. 

2) If its first character is I, J, K, L or M, it is assigned a 64xxx 
call word and the equation is assumed to be fixed point. 

3) If neither of the above cases applies, the next symbol is checked and 
if it is an open parenthesis the variable is assigned a 66xxx call 
word and a function mode is set. In this case all variables within 
the set of parentheses on the left are function dummies and put in 
the list at WL4-WL23. These dummies apply only to this particular 
equation. 

After START no function call words are assigned by the equation transla¬ 
tor but the pseudo operation heading translator assigns symbols dummy function 
call words, if equated to a real function by a COMPUTE. In an equation no 
arguments should be written with a function if the function appears on the 


796 



right or if it appears after START. 

Operation symbols are determined to be fixed point if they appear in a 
fixed-point equation (determined by the first symbol) or if they appear when 
in the subscript mode; otherwise they are assumed to be floating point. The 
list of errors found in this paper suggest what cannot be written in an 
equation. 

The following pages contain: 

1 ) A list of call words or special codes assigned by the equation 
translator. 

2) An example of the output for a function. 

3) A list of error prints. 

4. Explanations of some of the subroutines. 
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Special Codes Used by Equation Translation 


Op u v 


0 

0 

10 

Absolute value (open), floating and fixed 

0 

0 

12 

Absolute value (closed), floating 

0 

0 

11 

Absolute value (closed), fixed 

0 

0 

20 

+ floating 

0 

0 

21 

+ fixed 

0 

0 

30 

- floating binary 

0 

0 

31 

- fixed binary 

0 

0 

32 

- floating unary 

0 

0 

33 

- fixed unary 

0 

0 

40 

, ; comma or semicolon 

0 

0 

50 

= equals sign 

0 

0 

60 

* floating multiply 

0 

0 

61 

* fixed multiply 

0 

0 

70 

/ floating divide 

0 

0 

71 

/ fixed divide 

0 

0 

100 

POW 

0 

0 

120 

A . (space period) 

0 

1 

0 

( open parenthesis 

0 

2 

0 

) closed parenthesis 

0 

0 

17100 

Superscript = -1 (superscript 1 is ignored) 

0 

0 

16000 

Superscript = l/2 

0 

0 

16100 

Superscript = -l/2 

0 

0 

15000 

Superscript = 2 

0 

0 

15100 

Superscript = -2 

0 

0 

14000 

Superscript = 3 

0 

0 

14100 

Superscript = -3 

0 

0 

130xx 

Superscript = +4 to +77g (4 = xx = 77) 
Superscript = -4 to -77o (4 -xx - 77) 

1 Integral POW I >63 

0 

0 

131xx 

0 

0 

101 

0 

0 

25xxx 

In equation for 66 xxx, 65xxx or 64xxx 
symbol, before START 

0 

0 

24xxx 

Equation for 77xxx type symbol, before 

START. 
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EXAMPLE 


Output of Equation Translators for an equation which occurs before START: 
F(xl, x2 (I)) = xl‘ ] 3 4- x2 (J) *S2 (I, L) /R POW SIN YA. 



OP 

u 

V 

WL 

0 

0 

55 

WL1 

01 

06142 

21001 

WL2 

30 

£^£79 

UUV/ 1 L* 

46650 

WL3 

0 

0 

25xxx 

WL4 

72 

04777 

77777 

WL5 

0 

0 

62000 

WL6 

72 

05777 

77777 

7 

0 

0 

75001 

10 

34 

77777 

77777 

11 

0 

0 

62003 

WL24 

0 

0 

66000 


0 

0 

50 


0 

0 

32 


0 

0 

10 


0 

0 

62000 


0 

0 

12 


0 

0 

14000 


0 

0 

20 


0 

0 

75001 


0 

1 

0 


0 

0 

64xxx 


0 

2 

0 


0 

0 

60 


0 

0 

77xxx 


0 

1 

0 


0 

0 

62003 


0 

0 

40 


0 

0 

64xxx 


0 

2 

0 


0 

0 

70 


0 

0 

65xxx 


0 

0 

100 


0 

0 

5xxxx 


0 

0 

65xxx 


0 

0 

120 

_ 


# words in list 

Line number (excess 3) 39.5 

EQUATN (excess three) 

Sentence call word (x=octal digit) 


Heading 


xl (excess three) 
Call word of xl 
x2 

Call word of x2 
I 

Call word of I 
X WL12-WL23=0 


The function 

dummy list 

for this equation. 


F 


xl 

i 

Superscript 3 
+ 
x2 
( 

J 

) 

$ 

S2 

( 

I 

f- 

L 

) 

/ 

R 

POW 

SIN 

Y 

A. 


The Translated 
Equation 
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Error Texts for Equations 


El. Function symbol, -, (sub program dummy) in fixed point equation. 

E2. Subscripted variable symbol,-, (sub program Mummy) in fixed point 

equation. 

E3. Floating point variable, -, (sub program dummy) used in fixed point 

equation. 

E4. Function symbol, -, (sub program dummy) among subscripts of -. 

E5. Subscripted variable symbol, --, (sub program dummy) among subscripts 

of-. 

E6. Floating point variable, -, (sub program dummy) among subscripts of 

E7. Fixed point variable, -, (sub program dummy) in floating pt. equation. 

E8. Subscripted variable symbol, -, among subscripts of -. 

E9. Library routine, —-—, among subscripts of-. 

E10. Function, -, among subscripts of -. 

Ell. Floating point variable, -, among subscripts of -. 

E12. Fixed point variable, -, in floating point equation. 

E13. Library routine, -, in fixed point equation. 

E14. Floating point symbol, in fixed point equation. 

E15. Function, -, in fixed point equation. 

E16. Subscripted variable symbol, -, in fixed point equation. 

E17. Library routine symbol, -, with more than one argument, not followed 

by open parenthesis. 

E18. Subscripted variable symbol, -, not followed by an open parenthesis. 

E19. Subscripted variable symbol, -, (sub program dummy) not followed by 

an open parenthesis. 

E20. Subscripted variable symbol, -, (function dummy) among subscripts of 
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E21. Floating point variable, -, (function dummy) among subscripts of 

E22. Fixed point variable, ——, (function dummy) in floating point equation. 

E23. Subscripted variable symbol, -, (function dummy) not followed by an 

open parenthesis. 

E24. More than one separate equation for -. 

E25. Superfluous symbols on left. 

E26. Function, -, on left, not followed by an open parenthesis. Rest of 

this sentence not checked. 

E27. Library routine symbol, -, is first symbol of sentence. Rest of 

sentence not checked. 

E28. An Equation for - in the range of a VARY sentence in which -- 

appears. 

E29. Illegal symbol (-) for left of equation. 

E30. More than one subscript on-, an argument of the function-. 

E31. Library routine symbol, -, on left, among arguments of the function 

E32. Superscript symbol, -, among subscripts of -. 

E33. Superscript symbol, -, in fixed point equation. 

E34. More than four superscript symbols in sequence. 

E35. POW operation symbol among subscripts of ——. 

E36. POW operation symbol in fixed point equation. 

E37. Number of library routine operands (by comma count) not equal to number 
listed for this routine. 

E38. Interlocking parenthesis and absolute value signs. (1)1 
E39. Closed parenthesis appears with no corresponding open. 
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E40. Number of subscripts on -— (by comma count) is not equal to number 


E41. 

E42. 

E43, 

E44. 

E45. 

E46. 

E47. 

E48. 

E49. 

E50. 

E51. 

E52. 

E53. 

E54. 

E55. 

E56. 

E57. 


obtained from dimension sentence. 

Open parenthesis among subscripts of ——-. 

Illegal symbol, --, for right of equation. 

Incorrect use of comma. 

Number of equals signs not equal to one. 

Some open parentheses not closed. 

Number of open absolute value signs not equal to number of closed. 
Number of open parentheses on left not equal to number of closed. 
Superfluous arguments on function ——. 

Within arguments of more than 7 library routines. Arguments of —— 
not checked. 

Too many dummy arguments on function —Rest of this sentence not 
checked. 


Pseudo operation symbol,-, on right. 

Incorrect symbol sequence. —S32S 

Closed absolute value appears with no corresponding open. 

Open parenthesis, on left, among subscripts of —. 

Incorrect use of open parenthesis on left among arguments of 
Incorrect use of comma among arguments of 

More than 29 unclosed open parentheses and/or absolute value signs. 


E58. Constant illegal on left, before start. 
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SYMBOL PAIR CHECKER 


Almost every pair of symbols is checked by this routine. The bit in 
the array on the following page corresponding to the symbol pair consisting of 
the last two symbols picked up is checked. If it is a 1. the pair is illegal 
and the error is printed. The left symbol is picked up from SZ2 and the 
right from SY2. 

After checking a pair the routine sets the right symbol as the left 
symbol for the next check. Hence, before entering the routine, the new right 
symbol must be set as an input. 

The left symbol is indicated by an address in PC2 and the right symbol 
by a shift count in PCS. The addresses range from PD2 to PD22 and the shifts 
from 0 to 20. Notice from the way that the array is set up that to change a 
shift count to an address it is only necessary to add the shift count to 
address PD2. This is the way a right symbol becomes the next left symbol. 

If for some reason it is desired that no error be printed out for a symbol, 
the shift count is set to 20 and the symbol pairs with any other legally. 

The codes for the error print of this routine are with those of the 
translation subroutines. It is called F18 and is in region FI. 
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Meaning of Region PD Used by Symbol Pair Checker (PC) 

Right Symbol 


a> 

+-> 

+-> 

co 

E 


• T3 
<U 

CO CO 
C O 
O <—I 
O t> 




Doesn *t 

c 

CD 

CL, 

O 

'—/ . 

—<3 

II 

CO 

c \ 
o 

o u 

m 2 \ i o 

h o o. o. a 
JCLDDD* 

+ or - 

, or ; 
FTN 

Sub. Va 
VAR. or 

u 

o 

—- 


Ad¬ 

dress 


Octal 


( 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

E 

B 

0 

1 

0 

PD2 

= 

67642 


) or | (closed) 

0 

l 

0 

0 

1 

0 

1 

0 

0 


0 


1 

1 

1 

0 

1 

PD3 

— 

112035 


VAR. or Const. 

0 

l 

0 

0 

1 

0 

1 

0 

0 


□ 


1 

1 

1 

0 

1 

PD4 

= 

112035 


Sub. Var. 

0 

l 

0 

0 

1 

0 

1 

0 

0 

0 

0 


1 

1 

1 

0 

0 

PD5 

= 

112034 


FTN 

0 

l 

0 

0 

1 

0 

1 

0 

0 

0 

0 


1 

1 

1 

0 

0 

PD6 

= 

112034 


, or ; 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 



0 

1 

0 

PD7 

— 

67642 

H 

o 

+ or - 

0 

0 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 



0 

1 

0 

PD10 


47742 

_Q 

E 

* or / 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 



0 

1 

0 

PD11 

= 

67642 

CO 

Up Const. 

0 

1 

0 

0 

1 

0 

0 

1 

1 

0 

0 

□ 

1 

1 

1 

0 

1 

PD 12 

— 

111435 

+-> 

Up - 

0 

1 

1 

0 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

1 

1 

1 

PD13 

= 

157377 

0 ) 

Up / 

0 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

1 

1 

1 

1 

1 

PD14 

= 

177377 

1 -J 

POW 

0 

0 

1 

0 

0 

1 

1 

1 

1 

1 

0 

1 

Ej 


0 

1 

0 

PD15 


47642 


LIB 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

0 


0 

1 

0 

PD16 

= 

67642 


= 

0 

0 

1 

1 

0 

1 

1 

1 

1 

1 

0 

1 

0 


0 

1 

0 

PD17 


67642 


A. 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

PD20 

= ■ 

177777 


| (open) 

0 

0 

1 

0 

0 

1 

1 

1 

1 

1 

0 

1 

0 

0 

0 

1 

0 

PD21 

= 

47642 


Doesn 't matter 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

PD22 

= 

0 


To see if a symbol pair is legal,find the left symbol in the column 
on the left and the right symbol in the row at the top. If the box of 
intersection of the row and column of this symbol pair contains a 1 ,the 
pair is illegal. If it contains a zero, the pair is legal. 


0 = legal symbol pair 
1 = illegal symbol pair 
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Get Call Word from Dummy Function List 

This routine searches addresses WL4 - WL23 for the symbol in SY2. If 
the symbol is found it is put in TU2 and its call word is in TU3 in the v 
address. Reference the routine as follows: 


RJ 

TU 

TUI 

MJ 

0 

(Not in list) 

MJ 

0 

(In list) 


Send Call Word to Dummy Function List 

The XS3 code for the symbol is sent to TP2 and the dummy call word 
to TP3 then 

RJ TP TP1 

sends the two-word file to the list WL4 - WL23. 


Delete Library or Function Arguments, or Subscripts 


Sometimes an error is encountered and the arguments of a function or 
library routine or subscripts of a variable should be ignored without checking 
so the number of errors aoesn *t become excessive. 

To use the routine 


RJ FV FV1 

MJ 0 (IfA. is encountered) 

MJ 0 (after deletion) 
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liquation Translation (Page 1) 
T^ft 

First Symbol 





o - decision 


| I-referenced 

I_I point 


Key 

CW - call word 
CT.- Trans. Control 

A, Al, A2 - decision on 1st 

page 

B, Bl, B2 - decision on 2nd 

page 

etc. 

CB - Combination list 

Eq. - Equation 

Fit pt.- Floating point 

( - open parenthesis 
or parenthesis 

) - closed parenthesis 


E27 - Error number 27 

(See list of errors for text) 

Var. - variable 

X - octal digit 

a - Space code 

a..- Space period 

Ftn. -Function 

args - arguments 

Ss. - Subscript 

P.Op. - pseudo operation 

| - absolute value 

pow - power 

LIBRARY - library 




Equation Translation (Page 2) 
Left 


Not First Symbol 




Right 


Equation Translation (Page 3) 
Symbols on Right 


03 

o 

03 
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Equation Translation (Page 4) 
Symbols on Right (Cont.) 


. CW = 2 OOOOO 




c ) P. 3 
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Equation Translation (Page 5) 
Right (Cont.) 


Before START - Variable 








Equation Translation (Page 6) 
Right (Cont.) 


After START - VARIABLE 




Equation Translation Routine 


RE FR04000 

RE CA0402? 

RE CG04067 

RE CH04127 ' 

RE C104167 

RE CK04227 - 

RE DA04243 

RE FJ04260 

RE FK04271 

RE FL04303 

RE FM04313 

RE FN04323 

RE FP04337 

RE F004343 - 

RE FV04361 

RE HC04405 

RE HF04412 

RE HG04417 

RE HH04432 

RE HK04444 

RE HL04455 

RE HM04474 

RE HN04506 

RE HQ04515 

RE HR04524 

RE HS04535 

RE HD04551 

RE HV04564 

RE HW04623 

RE HX04645 

RE HY04666 

RE HZ04673 

RE MA04702 

RE MB04717 

RE MC04724 

RE MD04753 

RE ME05001 

RE MG05032 

RE MH05046 

RE M105067 

RE MJ05211 

RE MK05220 

RE ML05236 

RE MM05253 

RE MN05300 

RE MP05310 

RE MQ05315 

RE MS05337 

RE MT05343 . 


Setups 

Constants 

Left 

Right 

Subroutine 


Right 


812 



RE 

MIJ05372 

1 



RE 

MV05404 




RE 

MW05410 




RE 

MX05412 




RE 

MY05415 




RE 

MZ05431 




RE 

NA05434 




RE 

NB05447 




RE 

NC05461 




RE 

ND05471 




RE 

NE05502 




RE 

NF05511 




RE 

NG05532 




RE 

NH05551 




RE 

N105576 




RE 

NJ05621 




RE 

NK05626 




RE 

NL05645 


v - 

Right 

RE 

NN05652 




RE 

NP05670 




RE 

NS05676 




RE 

NV05715 




RE 

NW05733 




RE 

NX05740 




RE 

NY05745 




RE 

NZ05753 

- 



RE 

PC05762 




RE 

PD06006 




RE 

TP06031 


p- 

Subroutines 

RE 

TU06057 




RE 

WC06077 




RE 

WD06104 




RE 

XC06115 

' 



RE 

XD06123 




RE 

XE06152 


p- 

Right 

RE 

XF06205 




RE 

XG06220 




RE 

XH06237 




RE 

X106251 




RE 

XL06260 



Subroutine 

RE 

XQ06276 




RE 

XR06317 




RE 

XT06344 


>- 

Right 

RE 

XV06362 




RE 

XW06400 




RE 

XY06405 




RE 

XZ06432 




RE 

YB06444 




RE 

YC06511 




RE 

YD06532 


► 

Left 

RE 

YE06537 




RE 

YF06541 
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RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 

RE 


YG06560 ' 

YH06571 

Y106603 

YJ06611 

YK06623 

YL06644 

YM06673 

YN06705 

YP06723 

YQ06731 

YR06745 

YS06751 

YT06765 

YU07003 J 

YV07016 A. 

YW07054 ' 

YX07075 

YY07115 

YZ07135 

ZA07151 

ZB07163 

ZC07212 

ZD07226 

ZE07262 

ZF07271 

ZG07300 

ZH07313 

ZI07330 

ZJ07341 

ZK07346 

ZL07353 . 

ZM07364 ' 

ZN07416 

ZQ07434 

ZR07452 

ZT07464 

ZV07510 

ZW07525 

ZX07556 

ZY07571 

ZZ07615 . 

KX07620 \ 

KY07645 J 
VA07663 \ 

VC07725 J 
EF73047 ' 

EG73106 
EH73146 
EI73212 
EJ73251 
EK73300 
EL73334 - 


Left 


Left 


Right 


Left 

Variables 


Error Text Constants 
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RE EM73362 

RE EN73410 

RE EP73452 

RE ER73515 

RE DC73556 

RE GA73611 

RE GB73643 \ Error Text Constants 

RE GC73706 

RE GD73737 

RE GE74000 

RE GF74027 

RE GH74052 

RE GI74113 

RE GJ74151 

RE GK74202 

RE GL74225 

RE GM74255 

RE GP74306 

RE GQ74343 

RE GV74375 

RE FQ74444 

RE GY74461 

RE GZ74510 
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Equation Translation - Setups and Subroutines 


Region 

Name 

FR 

Setups 

TU 

Get CW from dummy Ftn. list 

TP 

Send CW to dummy Ftn. list 

XL 

Lower (level on left 

FV 

Delete Lib. t Ss., Ftn. 

WC 

Constants & variables 

WD 

Superfluous args. error 

PC 

Symbol pair checker 

PD 

Constants 

MI 

Lower upper case XS3 constant 







Setups 



IA 

FR 






0 

MJ 

0 

CT 

Exit 



1 

RP 

10042 

FR3 1 

Clear VA 



2 

TP 

CA27 

VA j 





3 

4 

RP 

TP 

10040 

CA27 

FR5] 
VC J 

Clear VC 



5 

TP 

CH15 

VA15 

— 

0 

2 

2 

6 

TP 

CH31 

VA23 

= 

0 

0 

100 

7 

TP 

CH22 

VA24 

= 

0 

1 

0 

10 

TP 

CI31 

VA40 

= 

0 

0 

7 

11 

TP 

CA3 

VAl 

= 

0 

0 

1 

12 

TP 

CA3 

VA2 

= 

0 

0 

1 

13 

TP 

CK1 

VC10 

= 

0 

VC 10 

VC 10 

14 

TP 

CK2 

VC 20 

= 

0 

VC20 VC20 

15 

TP 

CK3 

VC30 

= 

0 

VC30 VC30 

16 

TP 

CK4 

EW3 

EW3 

= 0 

WL23 WL23 

17 

TP 

CK5 

TP 4 

TP 4 

= 0 

WL4 

WL4 

20 

TP 

CA27 

XL2 

Clear print ind. 

21 

22 

TP 

ZZ 

VD 

FR23 

A I 

FR24 J 

After 1 

Before -> FR24 

23 

TP 

WB11 

WL2 

WL2 

= EQDATI 


24 

TP 

CK6 

VB3 

VB3 

= -1 



25 

26 

RP 

TP 

10020 

CA27 

YB ] 

WL4 J 

' Clear dummy list -> A 


CA 

FR27 
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Get CW from Dummy Function List 






RJ 

TU 

TUI 





MJ 

0 

Not in list 


IA 

TUO 


MJ 

0 

In list 

0 

MJ 

0 

i 30000) 

Exit 



1 

MJ 

0 

TU4 

Start 



2 

0 

0 

0 

XS3 



3 

0 

0 

0 

CW 



4 

TP 

SY2 

A 

Sym. —» A 



5 

RP 

20020 

TUO 

Not in list—> TUO (Exit) 



6 

EJ 

WL4 

TU7 

In list 



7 

SP 

TU15 

0 \ 




10 

SS 

Q 

17 J 

r —> A u 



11 

AT 

TU16 

TU14 

WL3 + r —> TU14 



12 

RA 

TUO 

TU17 

Set for in list 



13 

RP 

30002 

TUO 1 

File-> output —> Exit 



14 

0 

0 

0 J 




15 

0 

0 

20020 

JN 



16 

TP 

WL3 

TU2 




17 

0 

0 

1 





CA 

TU20 









Send Dummy CW to Function List 



IA 

TP 




0 

MJ 

0 

(30000) 

Exit 


1 

MJ 

0 

TP6 

Start 


2 

0 

0 

0 

XS3 


3 

0 

0 

(0) 

CW 


4 

0 

(WL4) 

(WL4) 

Add. of next file in 

dummy list 

5 

0 

WL24 

WL24 

Limit add. 


6 

TP 

TP 4 

A 

L 1 


7 

TJ 

TP 5 

TP20 - 

I 0. K. —> TP20 No i 


10 

TP 

VA37 

Q 1 

L , 


11 

QJ 

TP 12 

TP 13 J 

• Not in CB List ^ in 

—> TP 13 

12 

RJ 

TE 

TE1 

Add to list 


13 

RJ 

WA 

WAl 



14 

TP 

GQ 

UP 3 



15 

TP 

VA10 

GQ10 

’ E50 


16 

RJ 

UP 2 

UP 



17 

MJ 

0 

FR 

—> Exit 


20 

TV 

TP4 

TP22 

Set address 


21 

RP 

30002 

TP23 1 

i 


22 

TP 

TP 2 

(30000) J 

f File —> list 


23 

RA 

TP 4 

TP25 

Modify 


24 

MJ 

0 

TP 

Exit 


25 

0 

2 

2 




CA 

TP 26 
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Lower ( Level on Left 



IA 

XL 



0 

MJ 

0 

(30000) Exit 

1 

MJ 

0 

XL3 

Start 

2 

0 

0 

0 

Ind. 

3 

RS 

VAl 

CA3 

Lower ( level 

4 

TJ 

CA3 

XL6 

0 K i < 1 —> XL6 

5 

MJ 

0 

XL 

Exit 

6 

TP 

CA3 

VAl 

Set level = 1 

7 

TP 

XL2 

Q 1 

i Pre. point—>exit 

10 

QJ 

XL 

XLll J 

1 No * 

11 

RJ 

WA 

WAl 1 


12 

TP 

GI 

UP 3 

E39 

13 

RJ 

UP 2 

UP J 


14 

TP 

CA24 

XL2 

Set print 

15 

MJ 

0 

XL 

Exit 


CA 

XL16 
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Delete LIB, SS, FTN 






Y RJ FV 

W1 

1 v X 





Y+l MJ 0 

(A. 





Y+2 Normal 

exit 


IA 

FV 




0 

MJ 

0 

(30000) 

Exit 


1 

TP 

WC1 

WC 

Level = 1 


2 

RJ 

SY 

SY1 

Sym —> A 


q 

kJ 

EJ 

WC2 

FV7 

(—>FV7 


4 

EJ 

WC3 

FV11 

)—>FV11 


5 

EJ 

WC4 

FV17 

A . —> FV17 


6 

MJ 

0 

FV2 

Return 


7 

RA 

wc 

WC1 

Raise level 


10 

MJ 

0 

FV2 

Return 


11 

RS 

wc 

WC1 

Lower level 


12 

ZJ 

FV2 

FV13 

Level zero | no -» return 

13 

RA 

FV 

WC1 

Increase exit 


14 

TP 

CA5 

A | 

[ Set PC with ) 


15 

AT 

PD1 

PC 2 

1 


16 

MJ 

0 

FV 



17 

TP 

CA36 

A 

\ Set PC with doesn *t 


20 

AT 

PD1 

PC2 

[ matter 


21 

RA 

VA1 

WC 

Raise level 


22 

RJ 

DA 

DAI 

Check level 


23 

MJ 

0 

FV 

—> Exit 



CA 

FV24 





IA 

WC 




0 

0 

0 

0 

Level 


1 

0 

0 

1 

Const. 


2 

17 

77777 

77777 

( 


3 

43 

77777 

77777 

) 


4 

01 

ZZ(( ( 

UUi 

A. 



CA 

WC5 







Superfluous Argument Error 



IA 

WD 




0 

RJ 

WA 

WA1 



1 

TP 

SZ2 

GM7 

E48 


2 

TP 

GM 

UP 3 



3 

RJ 

DP2 

UP 



4 

TP 

GP 

UP3 1 

1 


5 

RJ 

UP2 

UP J 

\ "Args. not checked" 


6 

RJ 

FV 

FVl 

Delete FTN 


7 

MJ 

0 

YV 

A .—*© 


10 

MJ 

0 

ZMl 

—><© 



CA 

WDll 
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Pair Checker PC 


IA 

PC 




MJ 

0 

(30000) 

Exit 


MJ 

0 

PC 4 

Start 


0 

PD22 

PD22 

Address (left symbol) 

0 

20 

20 

Shift count 

(right symbol) 

TU 

PC 2 

PCS 1 

Code word —> 


TP 

(30000)Q J 

•Q 

TV 

PC3 

PC 7 1 

Shift bit—> 

■A 

SP 

PD 

(30000)J 



QT 

A 

A 

Ind. —> A 


ZJ 

PC 12 

PC21 

OK —> PC21 

No { 

RJ 

WA 

WA1 



RP 

30003 

PC 15 \ 

Left sym. 


TP 

SZ2 

FQ6 J 


• E52 

RP 

30003 

PC17 \ 

Right sym. 


TP 

SY2 

FQ12 J 



TP 

FQ 

UP3 



RJ 

UP 2 

UP 


. 

SP 

AT 

PD1 

PC 3 

0 1 

PC2 J 

Set for next 

check 

MJ 

0 

PC 

Exit 


CA 

PC24 




IA 

PD 




0 

0 

1 

Shift bit 


0 

PD2 

PD2 

1st address < 

of code words 

0 

0 

67642 

( 


0 

1 

12035 

) or | (closed) 

0 

1 

12035 

Var. or const. 

0 

1 

12034 

Sub. Var. 


0 

1 

12034 

FTN 


0 

0 

67642 

, or ; 


0 

0 

47742 

+ or - 


0 

0 

67642 

* or / 


0 

1 

11435 

Up const. 


0 

1 

57377 

Up - 


0 

1 

77377 

Up / 


0 

0 

47642 

POW 


0 

0 

67642 

LIB 


0 

0 

67642 

= 


0 

1 

77777 

A. 


0 

0 

47642 

| (open) 


0 

0 

0 

"Doesn *t matter” 

CA 

PD23 
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Conversion of Upper Case XS-3 Constant to Lower Case 



T A 

JLH 

Ml 






0 

MJ 

0 

(30000) 





1 

MJ 

0 

MI6 





2 

0 

0 

0 

] 


Output data 

3 

0 

0 

0 

i 

1 



4 

0 

0 

0 

1 

J 


Input data 

5 

0 

0 

0 





6 

TP 

MI 121 

MI 104 



Zeroize temp. 

7 

1 

TD 

X L 

MI 121 

MI 105 



Zeroize temp* 

10 

TP 

MI4 

MI46 



Store 

input 

11 

TP 

MI5 

MI47 



Store 

input 

12 

TP 

MI 103 

MI110 



Set Index 

13 

TP 

MI 106 

MI 107 



Set Index 

14 

TP 

Mini 

MI25 



Set store command 

15 

LQ 

MI46 

00006 

' 




16 

QT 

MI50 

A 





IT 

RP 

20013 

MI25 





20 

EJ 

MI51 

MI21 





21 

TP 

MI 101 

A 





22 

ST 

Q 

MI117 





23 

LA 

MI117 

00017 


> 

Convert and Store 

24 

RA 

MI25 

MI117 





25 

TP 

MI64 

Q 





26 

QT 

MI 50 

MI45 





27 

LQ 

MI 104 

00006 





30 

RA 

MI 104 

MI45 





31 

IJ 

MI 107 

MI14 





32 

RA 

MI 30 

MI 102 





33 

RA 

MI27 

MI102 


► 

Reset 

for second word 

34 

RA 

MI 15 

MI 102 





35 

IJ 

MI110 

MI13 





36 

TP 

MI104 

MI2 





3y 

TP 

MI 105 

MIS 





40 

TP 

MI111 

MI25 


► 

Preset for second set of 

41 

TP 

MI112 

MI15 



input data 

42 

TP 

MI113 

MI30 





43 

TP 

MI 114 

MI27 





44 

MJ 

0 

MI 





45 

0 

0 

0 





46 

0 

0 

0 





47 

0 

0 

0 





50 

0 

0 

00077 





51 

0 

0 

00060 



Upper 

Case 

52 

0 

0 

00061 





53 

0 

0 

00040 





54 

0 

0 

00020 





55 

0 

0 

00041 





56 

0 

0 

00035 





57 

0 

0 

00055 



> 

f 
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60 

0 

0 

00075 

61 

0 

0 

00036 

62 

0 

0 

00057 

63 

0 

0 

00062 

64 

0 

0 

00077 

65 

0 

0 

00003 

66 

0 

0 

00004 

67 

0 

0 

00005 

70 

0 

0 

00006 

71 

0 

0 

00007 

72 

0 

0 

00010 

73 

0 

0 

00011 

74 

0 

0 

00012 

75 

0 

0 

00013 

76 

0 

0 

00014 

77 

0 

0 

00022 

100 

0 

0 

00077 

101 

0 

0 

20013 

102 

0 

00001 

0 

103 

0 

0 

00001 

104 

0 

0 

0 

105 

0 

0 

0 

106 

0 

0 

00005 

107 

0 

0 

0 

110 

0 

0 

0 

111 

TP 

MI64 

Q 

112 

LQ 

MI46 

00006 

113 

RA 

MI 104 

MI45 

114 

LQ 

MI 104 

00006 

115 

PR 

0 

MI120 

116 

MS 

0 

40000 

117 

0 

00007 

0 

120 

0 

0 

00015 

121 

0 

0 

0 


CA 

MI122 



1 / 

Lower Case 


Lower Case 


Parameter Error 
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Constants 



IA 

CAO 


0 

04 

0 

0 

1 

06 

0 

0 

2 

0 

0 

77777 

3 

0 

0 

1 

4 

0 

0 

0 

5 

0 

1 

1 

6 

0 

2 

2 

7 

0 

3 

3 

10 

0 

4 

4 

11 

0 

5 

5 

12 

0 

6 

6 

13 

0 

7 

7 

14 

0 

10 

10 

15 

0 

11 

11 

16 

0 

12 

12 

17 

0 

13 

13 

20 

0 

14 

14 

21 

0 

15 

15 

22 

0 

16 

16 

23 

0 

17 

17 

24 

40 

0 

0 

25 

0 

0 

64000 

26 

0 

3 

3 

27 

0 

0 

0 

30 

17 

77777 

77777 

31 

0 

0 

65000 

32 

0 

0 

777 

33 

0 

0 

66000 

34 

06 

0 

3 

35 

0 

0 

62000 

36 

0 

9 n 

20 

37 

0 

0 

01000 


CA 

CA40 



( 

) or | (closed) 
Variable or const. 
Ss. Var. 

FTN 
» or ; 

+ or - 
* or / 

Upper Const. 

Upper - 
Upper / 

POW 

LIB 

BY or = 

A . 

| (open) 


Zero 

( 77 77 77 77 77 


O.K. for P.C. 


for PC 
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Constants (cont.) 



IA 

CG 






0 

11 

11111 

11111 

Fltpt. 




1 

22 

22222 

22222 

Fixed pt. 



2 

33 

33333 

33333 

Ftn. 




3 

44 

44444 

44444 

Sub. var. 



4 

21 

77777 

77777 

, 77 

77 77 

77 

77 

5 

23 

77777 

77777 

; 77 

77 77 

77 

77 

6 

43 

77777 

77777 

) 77 

77 77 

77 

77 

7 

76 

77777 

77777 

_ — 



— > 

10 

25 

73777 

77777 

BY- 



— > 

11 

01 

22777 

77777 

A.— 



— > 

12 

00 

77777 

77777 

- 77 

77 77 77 77 

13 

15 

77777 

77777 

/ 77 

77 77 

77 

77 

14 

42 

77777 

77777 

| — 



_> 

15 

0 

0 

50 

= 




16 

0 

0 

120 

A. 




17 

0 

0 

77000 





20 

0 

0 

70 

Mask 




21 

0 

0 

61000 





22 

0 

0 

63000 





23 

0 

0 

76000 





24 

0 

1 

0 

( 




25 

0 

0 

00700 

Mask 




26 

0 

VL1 

VLl 





27 

0 

07777 

0 

Mask 




30 

0 

0 

70000 





31 

0 

0 

40000 





32 

0 

0 

50000 





33 

02 

0 

0 





34 

0 

2 

0 

) 




35 

0 

70000 

0 





36 

0 

0 

40 





37 

0 

10000 

0 






CA 

CG40 
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Constants (cont.) 



IA 

CHO 



0 

0 

CH35 

0 

Fltpt. / 

1 

0 

cm 

0 

Fixed pt. / 

2 

0 

CI13 

0 

Fltpt. * 

3 

0 

CI12 

0 

Fixed pt. * 

A 

0 

0 

75000 

5 

52 

51717 

77777 

PO W 77 77 77 

6 

63 

77777 

77777 

+ 77 77 77 77 77 

7 

02 

77777 

77777 

- - > 

10 

56 

77777 

77777 

* - > 

11 

64 

77777 

77777 

/-* 

12 

0 

0 

12 

1 (closed) floating 

13 

0 

0 

13 

1 (closed) fixed 

14 

0 

0 

10 

1 (open) fl. and fixed 

15 

0 

2 

2 


16 

0 

0 

5 


17 

0 

0 

VA24 

Base add. for sequence 

20 

0 

0 

VA31 

for comparison 

21 

TP 

CG34 

0 


22 

0 

1 

0 


23 

0 

1 

1 


24 

0 

0 

3 


25 

0 

0 

2 


26 

0 

CIO 

0 


27 

0 

VA32 

0 


30 

0 

0 

16100 


31 

0 

0 

100 


32 

0 

0 

77 


33 

0 

0 

16000 


34 

0 

CIl 

0 


35 

0 

0 

70 

/ 

36 

0 

0 

32 

- 

37 

0 

0 

00100 

To set VC3 & POW 


CA 

CH40 
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Constants (Cont.) 



IA 

CIO 



0 

00 

77777 

77777 

- 

1 

20 

14000 

0 

1 

2 

15 

77777 

77777 

/ 

3 

20 

24000 

0 

2 

4 

20 

26000 

0 

3 

5 

0 

0 

13000 

CW for 4 to 63 & -4 

6 

0 

0 

15000 

2 & -2 

7 

0 

0 

14000 

3 & -3 

10 

0 

0 

17100 

-1 

11 

0 

0 

71 

Fixed / 

12 

0 

0 

61 

Fixed * 

13 

0 

0 

60 

FI. * 

14 

0 

0 

60000 


15 

0 

0 

10000 


16 

0 

0 

33 

Fixed unary - 

17 

0 

0 

32 


20 

0 

0 

31 


21 

0 

0 

30 


22 

0 

0 

21 

Fixed + 

23 

0 

0 

20 

FI. + 

24 

0 

3 

3 


25 

0 

0 

75000 


26 

30 

0 

0 


27 

0 

0 

0 

Base add. of print 

30 

0 

20000 

0 


31 

0 

0 

7 

Mask 

32 

33 

0 

0 

VC20 

VC30 

VC20 \ 
VC 30 J 

Limits on LIB modes 

34 

0 

07000 

0 


35 

0 

CI20 

0 

Fixed - 

36 

0 

CI21 

0 

FI. 

37 

0 

CI22 

0 

Fixed + 


CA 

CI40 
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Constants (cont.) 


0 

IA 

0 

CKO 

CI23 

0 

FI. + 

1 

0 

VC10 

VC10 


2 

0 

VC20 

VC20 


3 

0 

VC30 

VC30 


4 

0 

WL23 

WL23 

Set EW3 

5 

0 

WL4 

WL4 


6 

77 

77777 

77776 


7 

0 

0 

25000 

64 r 65 f 66xxx separate Eq 

10 

0 

0 

24000 

77xxx separate Eq. 

11 

0 

0 

WL 


12 

0 

0 

67000 

Const. CW 

13 

0 

30000 

0 

Const. 


CA 

CK14 
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Variables for Equation Translation 


0 


IA VAO 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 2 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 1 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 (0) 
CA VA42 


0 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

100 ’ 
0 
0 
0 
0 
0 

0 . 
0 
0 
0 
0 
0 
0 
7 
0 


Print ind. 

( level bit 
1 level bit 

w ( level raisers in sequence 

# 1 level raisers in sequence 
Ss. mode level 

XS3 of Ss. variable 
Ftn. mode level 
XS3 of Ftn. 

Level of subscripts for FTN. 

Lib. mode 

# commas for Lib. 

# of =*s 

# of words in up. c. sequence for string-out 
Fixed 40 - floating 00 

# commas, SV mode (count) 

# commas, FTN mode (count) 

# commas, Lib. mode (count) 

# upper case symbols in sequence 
POW ( 

Upper case sequence 
for string-out 
(Call words) 


Upper case sequence 
for special call word 
comparison (XS3) 

# Ss. -1 (from dimension list) 
not in CB List bit 
Ftn. mode format mask 
Address in CB List 
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Variables (cont.) 


0 

IA 

0 

VC 

0 

0 

Any decimal points in sequence 

1 

0 

0 

0 

Index 

2 

0 

0 

0 

Constant CW temp. 

3 

0 

0 

0 

Add in to constant CW for - 

4 

0 

0 

0 

Save const. CW 

5 

o 

o 

o 

Ind. print for "more than 29 ( 

6 

0 

0 

0 


7 

0 

0 

0 


10 

0 

VC10 

VC 10 

Address of Lib. level 

11 

0 

0 

0 ] 


12 

0 

0 

o ; 


13 

0 

0 

o ! 

- Level of Lib. 

14 

0 

0 

0 


15 

0 

0 

0 


16 

0 

0 

0 


17 

0 

0 

0 J 


20 

0 

VC20 

VC20 

Address of # of commas for Lib 

21 

0 

0 

0 


22 

0 

0 

0 


23 

0 

0 

0 

* # commas for Lib. 

24 

0 

0 

0 


25 

0 

0 

0 


26 

0 

0 

0 


27 

0 

0 

0 


30 

0 

VC30 

VC30 


31 

0 

0 

0 


32 

0 

0 

0 


33 

0 

0 

0 

XS3 of Lib. 

34 

0 

0 

0 


o r 


A 

A 


00 

u 

u 

u 


36 

0 

0 

0 


37 

0 

0 

0 



CA 

VC40 




P»t o m 

v w V * 
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Equation Translation Left 


Section 

A - First Symbol, Before 

START 


Section 

B - First Symbol, After 

START 


Section 

C - Not First Symbol 



Region 

Section 

Region 

Section 

YB 

A 



YH 

A 

ZE 

C 

YK 

A 

ZD 

C 

YG 

A 

ZI 

C 

YF 

A 

ZJ 

C 

YJ 

A 

ZK 

C 

YE 

A 

ZL 

C 

YD 

A 

DA 

C 

YI 

A 

KX 

C 

YC 

A 

KY 

C 

YM 

A 



YN 

A 



YW 

B 



YS 

B 

Letters on left 

of coding 

YR 

B 

sheets are connectors (They are 

YQ 

B 

also onthe flow charts) 

YP 

YU 

B 

B 

i.e., (B), (g) 

, etc. 

YT 

B 

Connector 

Section 

YX 

ZA 

C 

C 

© 

A 

ZC 

ZB 

C 

C 


A 

YZ 

C 

© 

A 

YY 

YL 

ZF 

C 

C 

C 

© 

C 

ZG 

C 



ZH 

C 
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Left-Before START-lst Symbol 


0 

IA 

TP 

YB 

VD 

A J 

„ After —>YW 

1 

ZJ 

YW 

YB2 J 

Before ^ 

2 

RJ 

TA 

TA1 1 

i Not in CB List —>YC 

3 

MJ 

0 

YC j 

r In i 

1 

4 

TP 

TA4 

Q 

5 

QT 

CG30 

A i 

r Lib. —» YD 

6 

EJ 

CG32 

YD J 

1 No j 

—7 

l 

mn 

ir 

m a a 

±A4 

EW2 '| 

i CW ■—> string 

> 

10 

RJ 

EW 

EW1 J 

\ 

11 

TP 

TA4 

Q 


12 

QT 

CG17 

A ^ 

l CW = 77XXX—> YB17 

13 

EJ 

CG17 

YB17j 

1 No l 

14 

QT 

CA32 

A 1 


15 

AT 

CK7 

WL3 J 

* 25XXX CW —>WL3 

16 

MJ 

0 

YB21 


17 

QT 

CA32 

A 1 

L 

20 

AT 

CK10 

WL3 J 

I 24XXX CW—>WL3 

21 

TP 

TA5 

Q 

I 

22 

QT 

CAl 

a ; 

? No prev. Eq.->YI 

23 

ZJ 

YB24 

YT j 

1 Prev. Eq. | 

24 

RJ 

WA 

WA1 -n 

25 

TP 

SY2 

EX311 

l E24 

26 

TP 

EX22 

DP 3 1 


27 

RJ 

DP2 

DP J 

I 

30 

TP 

TA4 

Q 1 

i CW —>A 

31 

QT 

CG17 

A J 

r 

32 

EJ 

CA25 

YE 

64XXX —>YE 

33 

EJ 

CA31 

YH 

65XXX —>YH 

34 

EJ 

CA33 

YG 

66XXX—>YG 

35 

RJ 

SY 

SY1 

Sym. — >A 77XXX \ 

36 

EJ 

CA30 

YJ 

—>YJ No l 

37 

RJ 

WA 

WA1 ] 

1 

40 

TP 

SZ2 

EN30 

l 

41 

TP 

EN22 

DP 3 

E18 

42 

RJ 

DP 2 

DP J 


43 

TP 

SY2 

A 

Sym-^A 

44 

MJ 

0 

YH10 



CA 

YB45 
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End of Left Symbols 



IA 

YH 


0 

RJ 

SY 

SYl 

1 

EJ 

CG7 

YK 

2 

RJ 

WA 

WAl 

3 

TP 

GA 

UP 3 

4 

RJ 

DP2 

UP I 

5 

TP 

SY2 

A ) 

6 

EJ 

CG11 

YV 

7 

RJ 

SY 

SYl 

10 

EJ 

CG7 

YK 

11 

MJ 

0 

YH6 


CA 

YH12 




IA 

YK 


0 

RA 

VA14 

CA3 

1 

TP 

VA1 

A 

2 

EJ 

CA3 

YK7 

3 

RJ 

WA 

WAl 1 

4 

TP 

GL14 

UP 3 > 

5 

RJ 

UP2 

UP J 

6 

TP 

CA3 

VAl 

7 

RP 

10011 

YK111 

10 

TP 

CA27 

VA3 \ 

11 

RP 

10004 

YK13 f 

12 

TP 

CA27 

VA17J 

13 

TP 

CA27 

VA36 

14 

TP 

CA21 

A ) 

15 

AT 

PDl 

PC2 J 

16 

TP 

CGI 5 

EW2 \ 

17 

RJ 

EW 

EWl J 

20 

MJ 

0 

ZM1 


CA 

YK21 



= —>YK 
E25 

A. —*© 
Sym ,—> A 
= —>YK 


* = f s + 1 

level zero—>YK7 no 
E47 

set to ( level zero 
Clear all modes 

Clear *SS 

set left of PC with = 
CW—> list 


832 



66XXX 



IA 

YG 


r\ 

RJ 

SY 

SYl 

1 

EJ 

CA30 

YG7 

2 

RJ 

WA 

WAl 

3 

TP 

SZ2 

GAll 

4 

TP 

GA6 

UP 3 

5 

RJ 

UP2 

UP 

6 

MJ 

0 

FR 

7 

LQ 

TA31 

25 

10 

MJ 

0 

YF4 


CA 

YGll 



Syrii —> A . 

(—> YG7 no V 

E26 

—^Exit to trans. control 



IA 

YF 


0 

RJ 

SY 

SYl 

1 

EJ 

CA30 

YF3 

2 

MJ 

0 

YH1 

3 

RA 

TA4 

CA37 

4 

TP 

TA31 

VA41' 

5 

RA 

VA41 

CA3 

6 

TP 

VAl 

VA7 

7 

TP 

SZ2 

VAlO 

10 

RA 

VAl 

CA3 

11 

TP 

PDl 

PC2 

12 

TP 

CA26 

TF 

13 

TP 

CA34 

TF3 

14 

TP 

CG20 

VA40 

15 

RP 

30002 

Yxn 

16 

TP 

TA3 

TF1J 


CA 

YF17 



65XXX 


Sym —>A | 

(—>YF3 no I 

CW = 66XXX 

Save address in VA41 

Set Ftn. mode 
XS3 of Ftn. 

Raise ( level 
Set PC 
# words = 3 
Set format 
Set mask 

Set up to return to 
CB list then— 


833 





77XXX ( 


YJ 



VAl 

VA5 

Set Ss. mode 

TA5 

Q \ 

#Ss. —>VA 36 

CA2 

VA36 J 


VAl 

CA3 

Raise level 

PD1 

PC2 

Set PC 

CG24 

EW2\ 

CW—>list 

EW 

EWi; 


VA36 

CA3 

sSs.-l 

SZ2 

VA6 

XS3 of Ss. variable 

0 

YJ12 

YXl 



64XXX 


YE 

CA24 VA16 

0 YH 

YE2 


Set fixed equation 

-X@ 


Lib. = 5XXXX 


YD 


WA 

WAl 

SY2 

GB5 

GB 

UP 3 

UP2 

UP 

0 

FR 

YD5 



E27 


-> trans. control 


834 



No previous Equation 



IA 

YI 



0 

RA 

TA5 

CAl 

Set eq. 

1 

RJ 

TD 

TD1 

Return to list 

2 

TP 

TA4 

Q \ 


3 

QT 

CG17 

A j 

CW—>A 

4 

EJ 

CA31 

YF 

65XXX->YF no 

5 

MJ 

0 

YB30 



CA 

YI6 




Not in CB List 



IA 

YC 


0 

RJ 

RH 

RHl 

1 

RJ 

TK 

TK1 

2 

AT 

CK7 

WL3 

3 

TP 

SYlO 

Q 

4 

QJ 

YM 

YC5 

5 

RJ 

SY 

SYl 

6 

EJ 

CA30 

YN 

7 

TP 

VB1 

A 

10 

AT 

CA31 

EW2 

11 

TP 

A 

TF2 

12 

RJ 

EW 

EW1 

13 

TP 

CA26 

TF 

14 

TP 

SZ2 

TF1 

15 

TP 

CAl 

TF3 

16 

RJ 

TE 

TE1 

17 

TP 

SY2 

A 

20 

MJ 

0 

YH1 


CA 

YC21 



} 

} 

} 


Check Var. symbol 
Increase CW. 

25XXX CW—>WL3 
IJKLM —>YU 
No i 
Sym —> A 
(—>YN no 

CW = 65XXX 

CW—>list 

File —>CB list 
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Not in CB List 1st Letter TJKLM 



TA 

YM 



0 

TP 

VB1 

A 1 

64XXX 

1 

AT 

CA25 

EW2 ) 


2 

TP 

A 

TF2 J 


3 

RJ 

EWO 

EWl 

CW—>list 

4 

TP 

CA24 

VA16 

Set fixed equation 

5 

TP 

SY2 

TF1 v 

Sym.— >TFl 

6 

TP 

CA26 

TFO 

\ 

7 

TP 

CAl 

TF3 

> CW—>CB List 

10 

RJ 

TEO 

TE1 . 

J ^ 

11 

MJ 

0 

YH 

— *© 


CA 

YM12 




NOT IJKLM Next Sym. ( 



IA 

YN 



0 

TP 

VB1 

A 1 

66XXX 

1 

AT 

CA33 

EW2 J 

r 

2 

TP 

A 

TF2 


3 

RJ 

EWO 

EWl 

CW —>list 

4 

TP 

SZ2 

TF1 ' 

1 XS3 of Ftn. 

5 

TP 

SZ2 

VA10. 

f 

6 

TP 

CA34 

TF3 "1 

Store format 

7 

TP 

CA26 

TFO j 


10 

TP 

VAl 

VA7 

Set Ftn. 

11 

RA 

VAl 

CA3 

Increase level 

12 

TP 

PDl 

PC2 

Set P. C. 

13 

TP 

CA24 

VA37 

Set "not in CB 

14 

TP 

CG20 

VA40 

Set mask 

15 

MJ 

0 

YX1 

—<B) 


CA 

YN16 




836 



Left After Start 1st symbol 


lA YW 


0 

RJ 

TS 

TSn 

1 

MJ 

0 

YP J 

2 

TP 

TS3 

EW2 \ 

3 

RJ 

EW 

ewi j 

4 

RJ 

KY 

KYI 

5 

TP 

TS3 

Q ) 

6 

Am 

VJ- 

r*r* i ^7 
OU1 ( 

H J 

7 

EJ 

CG21 

YQ 

10 

EJ 

CG22 

YR 

11 

RJ 

SY 

SYl 

12 

EJ 

CA30 

YS 

13 

RJ 

WA 

WAl N 

14 

TP 

SZ2 

EP6 l 

15 

TP 

EP 

OP 3 f 

16 

RJ 

0P2 

OP > 

17 

TP 

SY2 

A 

20 

MJ 

0 

YH1 


CA 

YW21 




IA 

YSO 


0 

TP 

CG24 

EW2 \ 

1 

RJ 

EWO 

EWI J 

2 

TP 

SZ2 

VA6 \ 

3 

TP 

VA1 

VA5 j 

4 

RA 

VAl 

CA3 

5 

TP 

TS3 

Q 1 

6 

QT 

CG25 

Q l 

7 

LQ 

Q 

36 

10 

TP 

Q 

VA36 

11 

TP 

PD1 

PC2 

12 

RS 

VA36 

CA3 

13 

MJ 

0 

YXl 


CA 

YS14 



Not in P. Op. list—>YP 
In i 

CW ->list 

Check Vary List 
XXOOO —>A 

61XXX —>YQ 

63XXX—>YR 

76YXX \|f Sym —>A 

( —>YS no ^ 

E19 



(—> string 
Set Ss. mode 
Raise level 
Store # Ss. 


Set P.C. 



837 



63XXX i 


0 

IA 

TP 

YRO 

SYIO 

Q ) 

1st letter IJKLM 

1 

QJ 

YR2 

YH J 

No— 

2 

TP 

CA24 

VA16 

Set fixed eq. 

3 

MJ 

0 

YH 

— 


CA 

YR4 




61XXX 


0 

IA 

RJ 

YQ 

SY 

SYl 

Sym—> A * 

1 

EJ 

CA30 

YQ3 

( —> YQ3 no 1 

2 

MJ 

0 

YH1 

— 

3 

RJ 

WA 

WAl^ 

1 

4 

TP 

SZ2 

GM7 1 

l E48 

5 

TP 

GM 

DP3 


6 

RJ 

UP 2 

UP j 

1 

7 

TP 

GP 

UP3 'i 

i "Args. not checked 1 

10 

RJ 

UP2 

UP J 

f 

11 

RJ 

FV 

FV1 

Delete Ftn. 

12 

MJ 

0 

YV 

A. -*£$ 

13 

MJ 

0 

YH 

— *© 


CA 

YQ14 






Not 

in P.Op. List-After START-lst Sym 


IA 

YP 



0 

RJ 

TA 

TAl 1 

i Not in CB List — 

1 

MJ 

0 

YT J 

1 In i 

2 

TP 

TA4 

EW2 1 

i Qff —> 1 i st 

3 

RJ 

EW 

EWl J 

r 

4 

RJ 

KY 

KYI 

Check Vary List 

5 

MJ 

0 

YU 



CA 

YP6 




838 



Not in Vary List 



IA 

YU 


0 

TP 

TA4 

Q \ 

1 

QT 

CG30 

A 1 

2 

EJ 

CG32 

YD 

3 

QT 

CG17 

A 

4 

EJ 

CA25 

YE 

5 

EJ 

CA31 

YH 

6 

EJ 

CA33 

YQ 

7 

TP 

CG33 

0 

10 

QS 

CG33 

TA5 

11 

RJ 

TD 

TDl 

12 

MJ 

0 

YB35 


CA 

YU13 



Not i 



IA 

YT 


0 

RJ 

IK 

TK1 

1 

TP 

SY10 

Q ) 

2 

QJ 

YT3 

YT14 J 

3 

AT 

CA25 

EW2 \ 

4 

TP 

CA24 

VA16J 

5 

TP 

A 

TF2 "v 

6 

TP 

CA26 

TF 1 

7 

TP 

SY2 

TF1 [ 

10 

TP 

CG33 

TF3 ^ 

11 

RJ 

EW 

EW1 

12 

RJ 

TE 

TE1 

13 

MJ 

o 

YH 

14 

AT 

CA31 

EW2 

15 

MJ 

0 

YT5 


CA 

YT16 



X0000 —> A 
5XXXX —> YD 
XXOOO —> A 
64XXX —> YE 
65XXX —> YH 
66XXX —> YQ 
77XXX i 

Set Equation bit 
Return to CB List 


CB List 


Increase CW counter 
1st letter IJKLM—>YT3 
No —>YT14 
CW = 64XXX 
Set fixed Equation 

Build file 


CW —>list 
File i —~>CB List 
— > 

W 

CW = 6 5 XXX 


839 



Left - Not 1st symbol 


✓ 

IA 

YX 



jo 

RJ 

PC 

PCI 

Pair Check 

1 

RJ 

SY 

SY1 

Sym—> A 

U 

EJ 

CG7 

YK 

= —>YK 

3 

TP 

SY7 

Q 1 


4 

QJ 

YL 

YX5 J 

Var .—>YL 

5 

EJ 

CA30 

YY 

(—> YY 

6 

EJ 

CG4 

YZ \ 


7 

EJ 

CG5 

YZ J 

, or; —>YZ 

10 

EJ 

CG6 

ZA 

)—>ZA 

11 

MJ 

0 

KX 

A ^KX 

12 

TP 

SY2 

GC4n 


13 

RJ 

WA 

WA1 1 


14 

TP 

GC 

DP3 f 

E29 

15 

RJ 

DP2 

UP J 


16 

TP 

CA36 

PC3 

Set PC 

17 

MJ 

0 

YX 



CA 

YX20 




840 



Lef t, not 1st sym 

) 


0 TP CA5 PC3 

1 RJ XL XL1 

2 TP VA1 A 

3 EJ VA5 ZB 

4 EJ VA7 ZC 

5 TP VA7 A t 

6 ZJ YX ZA7 J 

7 TP CG34 EW2 l 

10 RJ EW EWl J 

11 MJ 0 YX 

CA ZA12 


Set PC 

Level checker 
No \ 

Leaving Ss. mode—>ZB 
Leaving Ftn. mode—>ZC 
In Ftn. mode —>YX 
No l 

CW—> list 



) Leaving Ftn. mode 



IA 

ZC 


0 

TP 

CA27 

VA7 

1 

RJ 

PC 

PCI 

2 

TP 

CG35 

Q \ 

3 

QS 

VA20 

TF3 J 

4 

TP 

VA37 

Q ) 

5 

QJ 

ZC6 

ZC11 J 

6 

RJ 

TE 

TE1 

7 

TP 

CA27 

VA37 

10 

MJ 

0 

YH . 

11 

TV 

VA41 

ZC13 ] 

12 

RP 

30003 

YH 

13 

TP 

TF1 

(30000 )J 


CA 

ZC14 



Clear Ftn. mode 
—>PC 

# commas—>list 

"Not in CB List” bit set 
Not set—>ZCll 
Add to CB List 

Clear "not" bit 
— 

Send back to CB List 



841 



Left 


)-leaving Ss. mode 



IA 

ZB 



0 

RJ 

PC 

PCI 

Do PC 

1 

TP 

CA27 

VA5 

Clear Ss. mode 

2 

TP 

VA7 

A 1 

L 

3 

ZJ 

ZB4 

ZB14 J 

1 Ftn. mode » no 

4 

TP 

VA36 

A 1 

i # commas = 0— >1 

5 

ZJ 

ZB6 

YX1 J 

1 No ^ 

6 

RJ 

WA 

WA1 > 


7 

TP 

VA6 

GC20 


10 

TP 

GC12 

UP3 

} E30 

11 

TP 

VAlO 

GC27 


12 

RJ 

UP2 

UP ) 


13 

MJ 

0 

YX1 

—»(b) 

14 

TP 

CG34 

EW2 1 

> CW—>list 

15 

RJ 

EW 

EWl J 


16 

TP 

VA36 

A 

l Right # commas- 

17 

ZJ 

ZB20 

ZB24 - 

) No * 

20 

RJ 

WA 

WA1 > 


21 

TP 

VA6 

GI17 1 

L E40 

22 

TP 

GI12 

UP3 


23 

RJ 

DP2 

UP 

i 

24 

TP 

CA27 

VA17 ' 

1. Clear # Ss. 

25 

TP 

CA27 

VA36 - 

1 

26 

MJ 

0 

YH 



CA 

ZB27 




-ZB24 


Left 



IA 

YZO 


0 

TP 

CAll 

PC 3 

1 

TP 

VA5 

A 

2 

ZJ 

YZ3 

YZ7 

3 

RS 

VA36 

CA3 

4 

TP 

CG36 

EW2 'l 

5 

RJ 

EWO 

EWl J 

6 

MJ 

0 

YX 

7 

RA 

VA20 

CG37 

10 

TP 

CK13 

A 

11 

TJ 

VA20 

TP10 

12 

LQ 

VA40 

3 

13 

MJ 

0 

YX 


CA 

YZ14 



, or ; 

Set PC 

Ss. mode 1 no —>YZ7 
Commas - 1, 

C.W.—>list 



Too many operands —>TP10 
No I 

Shift mask 



842 



Left C 



IA 

YY 


0 

TP 

CA4 

PCS 

1 

RA 

YAl 

CA3 

2 

TP 

VA7 

A 

3 

ZJ 

YY4 

YY11 

4 

RJ 

WA 

WA1 

5 

TP 

VAlO 

GV45 

6 

TP 

GV31 

UP3 

7 

RJ 

rrnn 

ur^ 

UP 

10 

MJ 

0 

YX 

11 

RJ 

WA 

WAl 

12 

TP 

YA6 

GV27 

13 

TP 

GV15 

DP 3 

14 

RJ 

DP 2 

DP 

15 

TP 

CG24 

EW2 

16 

RJ 

EW 

EWl 

17 

MJ 

0 

YX 


CA 

YY20 



} 


} 


Set PC 

Increase level 

Ftn. mode I Ss. mode—>YY11 
E55 

E54 

CW —>list 


Left-not First Symbol-Var. 



IA 

YLO 


0 

RJ 

RHO 

RHl 

1 

TP 

CA6 

PC 3 

2 

TP 

VA7 

A 

3 

ZJ 

YL4 

ZD 

4 

RJ 

TAO 

TAl 

5 

MJ 

0 

YL11 

6 

TP 

TA4 

Q 

7 

QT 

CG30 

A 

10 

EJ 

CG32 

ZE 

11 

TP 

VA5 

A 

12 

ZJ 

YL13 

ZF 

13 

TP 

SY10 

Q 

14 

QJ 

YL22 

YL15 

15 

RJ 

WA 

WAl 

16 

TP 

SY2 

ER6 

17 

TP 

VA6 

ER20 

20 

TP 

ER 

DP 3 

21 

RJ 

DP2 

DP 

22 

TP 

SY2 

TP2 

23 

RA 

VB3 

CA3 

24 

AT 

CA35 

TP3 

25 

RJ 

TP 

TP1 

26 

MJ 

0 

YX 


CA 

YL27 




Check symbol 
Set PC 

Not Ftn. mode - 
Ftn. mode j 
Not in CB List 
In ^ 

Lib.—>ZE 
No \ 

Ss. mode no —>ZF 
Not IJKLM i yes —>YL22 


E2l 


Assign dummy GW 
CW —>dummy list 


ZD 

>YL11 
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Var.-Ftn. mod^-not Ss. mode 



IA 

ZFO 



0 

TP 

SY10 

Q } 

> 

1 

QJ 

ZF2 

ZGO J 

IJKLM 

2 

RJ 

WA 

WA1 > 

l 

3 

TP 

ER22 

0P3 1 

l E22 

4 

TP 

SY2 

ER27 


5 

RJ 

UP2 

OP > 

I 

6 

MJ 

0 

YL22 

Return 


CA 

ZF7 





ZGO 


Not IJKLM 

IA ZG 

0 RJ PC PCI PC 

1 RJ SY SYl Symbol—>A . 

2 EJ CA30 ZH . (—>ZH no * 

3 RA VB3 CA3 \ 

4 AT CA35 TP3 l 62XXX CW—>dummy list 

5 TP SZ2 TP2 [ 

6 RJ TPO TPl J 

7 TP VA40 Q \ Fltpt. —^format 

10 QS CG TF3 / 

11 TP SY2 A Sym —>A 

12 MJ 0 YX2 —>(B) 

CA ZG13 


844 



Ftn. mode-Var. ( 



IA 

ZHO 

•v 


0 

RA 

VB3 

CA3 ] 


1 

AT 

CH4 

TP 3 ' 

\ 75XXX CW—^dummy list 

2 

TP 

SZ2 

TP2 | 


3 

RJ 

TPO 

TPl J 


4 

RA 

VB3 

CA3 

Leave space for Ss. 

5 

TP 

PD1 

PC2 

Set PC 

6 

TP 

VA40 

Q " 

i Ss. var—^format 

7 

QS 

CG3 

TF3 ) 

10 

TP 

VA1 

VA5 

7 Set Ss. mode 

11 

TP 

SZ2 

VA6 J 

1 

12 

TP 

CA27 

VA36 

# Ss. -1=0 

13 

RA 

VAl 

CA3 

Raise level 

14 

MJ 

0 

YXl 

— >® 


CA 

ZH15 









Lib. 5XXXX 


IA 

ZEO 




0 

RJ 

WA 

WAl "n 



1 

TP 

SY2 

GD5 



2 

TP 

VA10 

GD17 

j> E31 


3 

TP 

GD 

UP 3 



4 

RJ 

DP2 

UP J 



5 

TP 

CA36 

PC3 

Set PC 

"doesn’t matter" 

6 

MJ 

0 

YX 




CA 

ZE7 




845 



Left - Not 1st symbol 
Not Ftn. mode 
Var. 



IA 

ZD 



0 

TP 

SY10 

Q 

l IJKLM —>ZI 

1 

QJ 

ZI 

ZD2 

> no X 

2 

RJ 

WA 

WA1 > 

W 

3 

TP 

SY2 

EK6 


4 

TP 

VA6 

EK16> 

Ell 

5 

TP 

EK 

UP 3 


6 

RJ 

UP2 

UP 


7 

TP 

VD 

A 1 

l Before —>ZI2 

10 

ZJ 

ZDll 

ZI2 J 

» After i 

11 

RJ 

TS 

TSl ^ 

Not in P.Op. li j 

12 

MJ 

0 

ZD16 J 

I In X 

13 

TP 

TS3 

EW2 1 

i CW—>list 

14 

RJ 

EW 

EWl J 

r 

— 

15 

MJ 

0 

YX 

16 

RJ 

TA 

TAl ' 

\ Not in CB list- 

17 

MJ 

0 

ZD23 . 

) In i 

20 

21 

TP 

RJ 

TA4 

EW 

EW2 ] 
EWl j 

^ CW—^string 

22 

MJ 

0 

YX 

— 

23 

RJ 

TK 

TKl 

Increase CW 

24 

AT 

CA31 

EW2 

Assign 65XXX CW 

25 

TP 

A 

TF2 > 

\ 

26 

TP 

CA26 

TF 

File —>CB list 

27 

TP 

SY2 

TF1 

> 

30 

TP 

CA27 

TF3 


31 

RJ 

TE 

TE1 J 


32 

RJ 

EW 

EWl 

an —>iist 

33 

MJ 

0 

YX 

- > ® 


CA 

ZD34 



—>ZDl6 


ZD23 


846 



1st Letter IJKLM 



IA 

ZI 


( Before START ^ 

0 

TP 

VD 

A ) 

1 

ZJ 

ZJ 

ZI2 J 

No —>ZJ 

2 

RA 

VB3 

CA3 \ 


3 

AT 

CA35 

TP 3 

1 

4 

TP 

A 

EW2 

> Dummy CW = 62XXX- 

5 

TP 

SY2 

TP2 


6 

RJ 

TPO 

TP1 -> 


7 

RJ 

EWO 

EWl 

CW —>list 

10 

MJ 

0 

YX 

—® 


CA 

ZI11 




After START 



IA 

ZJO 



0 

RJ 

TSO 

TSl ? 


1 

MJ 

0 

ZK J 

In P.Op. list 

2 

TP 

TS3 

EW2 7 

CW—>list 

3 

RJ 

EW 

EWl J 

— 

4 

MJ 

0 

YX 


CA 

ZJ5 



Not in P.Op. list 


0 

IA 

RJ 

ZKO 

TAO 

TAl \ 

Not in CB List—>ZLO 

1 

MJ 

0 

ZL J 

In j 

2 

TP 

TA4 

EW21 

CW —>iist 

3 

RJ 

EW 

EWl j 

— 

4 

MJ 

0 

YX 


CA 

ZK5 






Not in CB List 


IA 

ZL 



0 

RJ 

TK 

TK1 1 

Assign 64XXX CW 

1 

AT 

CA25 

EW2 J 


2 

TP 

A 

TF2\ 


3 

TP 

CA26 

TF 

| New file—>CB list 

4 

TP 

SY2 

TFl 

> 

5 

TP 

CA27 

TF3 


6 

RJ 

TE 

TE1> 


7 

RJ 

EW 

EWl 

CW —>list 

10 

MJ 

0 

YX 



CA 

ZL11 




847 



Level Checking Sub. 


0 

IA 

MJ 

DA 

0 

(30000) 

Exit 

1 

MJ 

0 

DA3 

Start 

2 

0 

0 

40 

32 10 

3 

TP 

VAl 

A \ 

4 

AT 

VA2 

A J 

| level +( level—>A 

5 

TJ 

DA2 

DA 

O.K.—> exit no 1 

6 

TP 

VC5 

Q ) 

Prev. print —>exit 

7 

QJ 

DA 

DAlO j 

No i 

10 

RJ 

WA 

WA1 \ 


11 

TP 

GY12 

DP3 > 

E57 

12 

RJ 

DP2 

DP J 


13 

TP 

CA24 

VC5 

Set ind. 

14 

MJ 

0 

DA 

Exit 


CA 

DA15 




Inserted in region YX with jump 
at YXll = MJ 0 KX 


0 

IA 

EJ 

KX 

CGll 

YV 

A .-*© 

1 

TP 

SY11 

Q 

} 1 

2 

QJ 

KX3 

YX12 

J Const, v no —=*YXl2 

3 

TP 

SY13 

Q 

j 

4 

QJ 

YX12 

KX5 j 

1 Superscript—^YXl2 no 

5 

TP 

VD 

A \ 

1 

6 

ZJ 

KX7 

KX20 J 

After 1 before —>KX20 

7 

RJ 

RD 

RDl 

Check fixed pt. const. 

10 

TP 

SY2 

RS4 ] 

t 

r 

11 

RJ 

RS2 

RS J 

Convert to octal 

12 

TP 

RS3 

A < 

r Assign CW 

13 

RJ 

GW 

GWl J 

1 

14 

TP 

Q 

EW2 j 

’ CW —>list 

15 

RJ 

EW 

EW1 J 


16 

TP 

CA6 

PC 3 

Set PC 

17 

MJ 

0 

YX 

— 

20 

RJ 

WA 

WAl 7 

E58 

21 

TP 

GZ 

DP3 J 


22 

RJ 

DP2 

DP J 


23 

TP 

CA36 

PC3 

Set PC with doesn't matter 

24 

MJ 

0 

YX 

— 


CA 

KX25 
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Check Vary List 



T A 

1H 

tsxt 

1VI 



0 

MJ 

0 

(30000) 

1 

TP 

VL 

A > 


2 

ST 

CG26 

A 

i 

3 

TP 

CG27 

Q 

1 Set up N of RP 

4 

QS 

A 

KY6 - 

) 

5 

TP 

SY2 

A 

Syra—>A 

6 

RP 

20000 

KY 

Not in Vary List 

*7 

1 

FT 

m i 

V UJ. 

fvi n 

nxiv 

T n .1. 

10 

RJ 

WA 

WAl > 


11 

TP 

SY2 

GB26 


12 

TP 

SY2 

GB40 

> E28 

13 

TP 

GB22 

DP3 


14 

RJ 

DP2 

DP ) 


15 

MJ 

0 

KY 

Exit 


CA 

KY16 
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Equation Translation 
Right 


Section 

D - Switch = | 

/ * - + , 

; constant 



Section 

E - Superscript symbols 




Section 

G - POW ) ( 





Section 

H - VAR Before START 




Section 

I - VAR After 

START, In pseudo Op. list 


Section 

F - VAR After 

START, Not 

in pseudo Op. 

, list 


Section 

F - also A . 





Region 

Section 

Region 

Section 

Region 

Section 

ZM 

D 



HL 

H 

MB 

D 

ZR 

G 

XQ 

H 

MD 

D 

NY 

G 

HS 

H 

ME 

D 

ZQ 

G 

HR 

H 

MA 

D 

FN 

G 

HU 

H 

ZZ 

D 

FM 

G 

HQ 

H 

ZY 

D 

FL 

G 



MY 

D 

FP 

G 



ZX 

D 

ZN 

G 

XD 

I 

MZ 

D 



NA 

I 

ZW 

D 



HZ 

I 

Z V 

D 

ZT 

H 

HY 

I 

XC 

D 

XG 

H 

HX 

I 



XF 

H 

HW 

I 



XH 

H 

ND 

I 

MC 

E 

XI 

H 

NE 

I 

MH 

E 

XE 

H 

NC 

I 

MJ 

E 

XW 

H 

NB 

I 

ML 

E 

XV 

H 



MN 

E 

XT 

H 



MM 

E 

XR 

H 

HV 

F 

MQ 

E 

HG 

H 

NL 

F 

MG 

E 

HH 

H 

NJ 

F 

MP 

E 

HF 

H 

NI 

F 

MK 

E 

HC 

H 

NH 

F 

MU 

E 

XZ 

H 

NS 

F 

MT 

E 

HK 

H 

NP 

F 

MS 

E 

XY 

H 

NK 

F 

MV 

E 

HN 

H 

NG 

F 

MX 

E 

HM 

H 

NX 

F 

MW 

E 






NW F 

NV F 

NN F 

FU F 

NF F 

FK F 

FJ F 

NZ F 

YV F 


850 



Sections of connectors; 


r.AnnQn+ At* 

V W K Vi. 


Qaa t 1 am 

•»/V> V Ls A V IX 


0 D 

(C2) F 

@ D 

(D2) E 

© H 

0 i 


851 
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Equation Translation Right 



IA 

ZM 


RJ 

PC 

PCI 

RJ 

SY 

SYl 

EJ 

CA30 

ZN 

EJ 

CG6 

ZQ 

EJ 

CH5 

ZR 

TP 

SY7 

Q 

QJ 

ZT 

ZM7 

TP 

SY13 

Q 

QJ 

MC 

ZMll 

TP 

SYll 

Q 

QJ 

ZV 

ZM13 

EJ 

CG4 

zw 

EJ 

CG5 

zw 

EJ 

CH6 

ZX 

EJ 

CH7 

ZY 

EJ 

CHIO 

ZZ 

EJ 

CH11 

MA 

EJ 

CG14 

MD 

EJ 

CG11 

YV 

EJ 

CG7 

MB 

RJ 

WA 

WAl 

TP 

SY2 

GJ16 

TP 

GJI2 

DP3 

RJ 

DP2 

DP 

TP 

CA36 

PC3 

MJ 

0 

ZM 

CA 

ZM32 



Pair check 
Symbol —>A 
(—>ZN 
)—>ZQ 

POW —>ZR . 

Var.—>ZT no i 

Superscript—no i 

Constant —>Z V 
No i 

, or ; —>ZW 
no i 
+ —> ZX 
-> ZY 

*—> zz 

/—* MA 

I - 

A . 


> MD 

—>© 

> MB 


E42 


Set PC 

© 


Right = 


0 

IA 

RA 

MB 

VA14 

CA3 

# =*s + 1 

1 

TP 

CA21 

PC3 

Set PC 

2 

TP 

CG15 

EW2 \ 

CW —> list 

3 

RT 

EWO 

EW1 J 


4 

MJ 

0 

ZM 

-»© 


CA 

MB5 
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Right Absolute Value 
I open 



IA 

MD 

0 

TP 

SZ2 

1 

EJ 

CG7 

2 

RP 

20005 

3 

EJ 

CH5 

4 

0 

0 

5 

0 

0 

6 

EJ 

CA30 

7 

EJ 

CG4 

10 

EJ 

CG5 

11 

TP 

EW2 

12 

QT 

CG30 

13 

EJ 

CG32 

14 

TP 

Q 

15 

EJ 

CH14 

16 

MJ 

0 

17 

TP 

CA23 

20 

TP 

CH14 

21 

RJ 

EW 

22 

TP 

CA27 

23 

RA 

VA4 

24 

RA 

VA2 

25 

MJ 

0 


CA 

MD26 


A 

MD17 

MD6 \ + POW 

MD17 I ~ * / 

0 
0 

MD17 ( 

MD17 

MD17 ; 

Q 

A ) 

MD17 J Lib 

A 


—> MD17 

>—>open 

J 

open 


MD17 
ME 
PC 3 
EW2 ' 
EW1 . 
VA3 
CA3 
CA3 
ZM 


} 


I u —>open 
Closed —> ME 
Set PC with open 

CW —^string 
Clear (level raisers 
1 level raisers + 1 
Raise I level 
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o-40^oij^cotoH- , o-40cn^coroi—o~ja'Cna^wroh-‘ 


Absolute Value 
I(Closed) 


IA 

ME 



TP 

CA5 

PC3 

Set PC 

RS 

VA2 

CA3 

Lower level 

TJ 

CA3 

ME4 

Level too low—>ME4 

MJ 

0 

MElO 

OK—> MElO 

TP 

CA3 

VA2 

Set level = 1 

RJ 

WA 

WAl | 


TP 

GV 

UP3 

> E53 

RJ 

DP2 

DP J 


TP 

VA3 

A 1 

( Raisers = 0—>ME15 

ZJ 

ME 12 

ME15 J 

f no i 

RJ 

WA 

WAl 1 


TP 

GH24 

UP3 

> E38 

RJ 

UP2 

DP J 


TP 

VA4 

A 1 

i 1 > 1 Level raisers —>ME20 

TJ 

CA3 

ME20 J 

[ No ^ 

RS 

VA4 

CA3 

Raisers - 1 

TP 

VA5 

A 1 

L 1 

ZJ 

ME22 

ME25 J 

> Ss. mode v no—>ME25 

TP 

CH13 

EW2 1 

l Fixed CW->list 

RJ 

EW 

EWl 

—© 

MJ 

0 

ZM 

TP 

VA16 

Q 

\ Fixed Eq.->ME22 

QJ 

ME22 

ME27 . 

J No i ' 

TP 

CH12 

EW2 ' 

) Floating CW—>list 

MJ 

0 

ME23 . 

f 

CA 

ME31 




854 



Right 





/ 




IA 

MAO 




0 

TD 

CHO 

MAI 2 1 

Set for / 


1 

TU 

CHI 

MA5 J 



2 

TP 

CA13 

PC3 

Set P.C. 


3 

TP 

VA5 

A ) 


j 

4 

ZJ 

MA5 

MA10 J 

Ss. mode \ 

v no — 

5 

TP 

(30000) 

EW2 \ 

Fixed CW— 

->list 

6 

RJ 

EWO 

EWl J 

->© 


7 

MJ 

0 

ZM 


10 

TP 

VA16 

Q } 

Fixed eq. 

—>MA5 

11 

QJ 

MA5 

MA12 J 

No i 


12 

TP 

(30000) 

EW2 \ 

FI. C.W.— 

-> list 

13 

RJ 

EWO 

EWl J 

-© , 


14 

MJ 

0 

ZM 



CA 

MA15 

Right 






* 




IA 

zzo 




0 

TD 

CH2 

MAI 2 

Fltpt. * 


1 

TD 

CH3 

MA5 

Fixed Pt. 


2 

MJ 

0 

MA2 

->/ sequence 


CA 

ZZ3 





■MA10 


855 



Unary 


Right 

(minus) 



IA 

ZY 


0 

TP 

CA12 

PC 3 

1 

TP 

EW2 

Q 

2 

QT 

CG30 

A 

3 

EJ 

CG30 

MY "l 

4 

EJ 

cri4 

MY > 

5 

EJ 

CT15 

MY 1 

6 

TP 

Q 

A . 

7 

EJ 

CH12 

MY ) 

10 

EJ 

CH13 

MY ) 

11 

EJ 

CG34 

MY 

12 

TP 

VA5 

A \ 

13 

ZJ 

ZY16 

ZY14J 

14 

TP 

VA16 

Q 1 

15 

QJ 

ZY16 

ZY21 J 

16 

TP 

CI16 

EW2 I 

17 

RJ 

EWO 

EW1 ) 

20 

MJ 

0 

ZM 

21 

TP 

CI17 

EW2 \ 

22 

RJ 

EWO 

EW1 J 

23 

MJ 

0 

ZM 


CA 

ZY24 






Binary 

- 





or 





+ 


IA 

MYO 



0 

TU 

CI35 

MY6 


1 

TU 

CI36 

MYll 

J 

2 

TP 

VA5 

A 

) 

3 

ZJ 

MY6 

MY4 . 

f 

4 

TP 

VA16 

Q ) 


5 

QJ 

MY6 

MYll J 


6 

TP 

(30000) 

EW2 \ 


7 

RJ 

EWO 

EWl J 


10 

MJ 

0 

ZM 


11 

TP 

(30000) 

EW2 1 


12 

RJ 

EWO 

EWl J 


13 

MJ 

0 

ZM 



CA 

MY14 




Set P.C. 

Last CW—>Q 

Var. 

Const. —> MYO 

Spec. CW 

I (closed)->MYO 

)— >mo 

Ss. mode—>ZYl6 
No i 

Fixed eq. \ no—>ZY2l 
Fixed unary->string 

^© 

Floating unary -^string 


(minus) 

(plus) 


Set for - 

Ss. mode —>MY6 
Novi 

Fixed eq. I no—>MY11 
Fixed +—>string 

^© . 

Floating + —>string 

-*© 
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Right 

+ 


0 

IA 

TP 

ZXO 

CA12 

PC3 

Set PC 

1 

TP 

EW2 

Q 

Last CW —>Q 

2 

QT 

CG30 

A 


3 

EJ 

CG30 

MZOl 

Var., Const, or 

4 

EJ 

CX14 

MZO 

Spec. CW—>MZO 

5 

EJ 

CI15 

MZOJ 

1 

6 

TP 

Q 

A 

1 

7 

EJ 

CH12 

MZO' 

l 1 (closed)—>MZO 

10 

EJ 

CH13 

MZO. 

r 

11 

EJ 

CG34 

MZO 

) —>MZO 

Unary +12 

MJ 

0 

ZM 

—> © 


CA 

ZX13 



Binary + 



IA 

MZO 



0 

TU 

CI37 

MY6 \ 

Set for + 

1 

TU 

CKO 

MY11J 


2 

MJ 

0 

MY2 



CA 

MZ3 






Right , or ; 


IA 

ZW 



0 

TP 

CAll 

PC3 

Set PC 

1 

TP 

VA5 

A 1 

> 1 

2 

ZJ 

ZW3 

ZW7 J 

Ss. mode » no —>ZW7 

3 

RS 

VA36 

CA3 

# commas - 1 

4 

TP 

CG36 

EW2 ] 

CW—>list 

5 

RJ 

EW 

Ew 1 ) 


6 

MJ 

0 

ZM 

—*© 

7 

TP 

VC10 

A 

1 

10 

EJ 

CK1 

ZW25 

Lib. mode v no—>ZW25 

11 

TU 

VC10 

ZW12 1 


12 

TP 

(30000) 

A 

1 Right level—>ZW22 

13 

AT 

CA3 

A 

? 

I 

14 

EJ 

VAl 

ZW22 . 

No i 

15 

RJ 

WA 

WAl n 


16 

TU 

VC30 

ZW17 | 

1 

17 

TP 

(30000) 

GY10 

> E56 

20 

TP 

GY 

UP3 


21 

RJ 

UP2 

UP > 


22 

TU 

VC20 

ZW23 1 

1 * commas - 1 

23 

RS 

(30000) 

CA3 . 

f 

24 

MJ 

0 

ZW4 


25 

RJ 

WA 

WAl ] 


26 

TP 

GJ24 

UP3 

> E43 

27 

RJ 

UP 2 

UP j 

1 

30 

MJ 

0 

ZW4 



CA 

ZW31 
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1st Superscript Symbol 


D2 



IA 

MC 



0 

RP 

10010 

MC2 Y 

Clear variables 

1 

TP 

CA27 

VC j 


2 

TP 

CH31 

VA23 1 

Set POW sequence 

3 

TP 

CH22 

VA24 J 

f 

4 

TP 

CA3 

VA22 

Set count = 1 

5 

TP 

CH15 

VA15 

Set seq. 

6 

TP 

VA5 

A 

1 

7 

ZJ 

MClO 

MC17 ) Ss. mode w no— >i 

10 

RJ 

WA 

WA1 *\ 


11 

TP 

VA6 

GD37 


12 

TP 

SY2 

GD26 

> E32 

13 

TP 

SY3 

GD27 i 

14 

TP 

GD21 

0P3 


15 

RJ 

DP2 

UP > 


16 

MJ 

0 

MK 


17 

TP 

VA16 

Q 1 

L | 

20 

QJ 

MC21 

MK J 

f Fixed eq. v 

21 

RJ 

WA 

WAl > 


22 

TP 

SY2 

GE5 1 


23 

TP 

SY3 

GE6 

> E33 

24 

TP 

GE 

UP3 


25 

RJ 

0P2 

DP > 


26 

MJ 

0 

MK 



CA 

MC27 






Sequence Loop 


IA 

MH 



0 

RJ 

PC 

PCI 

PX, 

1 

RJ 

SY 

SYl 

Sym. —> A 

2 

TP 

SY13 

Q 


3 

QJ 

MH4 

MJ 

Superscript ♦ no- 

4 

RA 

VA22 

CA3 

Count symbols 

5 

TJ 

CH16 

MK 

5 > # sym. —>MK 

6 

RJ 

WA 

WAl") 


7 

TP 

GE16 

UP3 > 

E34 

10 

RJ 

0P2 

UP J 


11 

RJ 

SY 

SYl 

Sym.— >A K 

12 

TP 

SY13 

Q ] 

Superscript J 

13 

QJ 

MHll 

MH14J 

No ^ 

14 

TP 

CA36 

A \ 

Set PC with M doesn 

15 

AT 

PDl 

PC2 J 


16 

TP 

CG34 

EW2 

CW = ) 

17 

TP 

SY2 

A 

Sym. —^-A 

20 

MJ 

0 

ZM2 

-*© 


CA 

MH21 



no 
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# Sym ^ 4 



IA 

MJ 


Not superscript 

4 

0 

TP 

CHI 7 

A 7 



1 

AT 

CH21 

A V 

) —> Sequence 


2 

AT 

VA22 

A f 



3 

AT 

CA3 

MJ4 1 



4 

0 

30000 

30000 J 

TP CG34 VA+ 


5 

TP 

VC 

Q ? 

Dec. pt. in seq. 

— ■ ML 

6 

QJ 

ML 

MM J 




CA 

MJ7 







Dec. pt. 

in seq. 

, i.e. t not spec, case * 



IA 

ML 




0 

SP 

VA22 

17 1 

1 


1 

SA 

VA22 

o 

7 # sym in seq.—> A — 

->VA15 

2 

AT 

CA26 

VA15 j 

I 


3 

AT 

EW3 

A 

Add .—>A 


4 

TJ 

CJ10 

MN 

Fit in list—>MN 

no i 

5 

TP 

EW4 

Q 1 

L 

i 

6 

QJ 

ML12 

ML7 J 

• Prev. print—>ML12 

no v 

7 

RJ 

WA 

WAl 

1 


10 

TP 

Fr 

DP3 i 

> F16 


11 

RJ 

DP2 

DP J 

1 


12 

TP 

CJ10 

EW3 

Set limit 


13 

TP 

CA24 

EW4 

Set ind. 


14 

MJ 

0 

MH16 




CA 

ML15 








Seq. Fits 

in List 


IA 

MN 




0 

TV 

EW3 

MN5 1 

L 

Fix address 

1 

RA 

MN5 

CA3 J 

r 


2 

TP 

CG27 

Q 1 

L 

Set n of repeat 

3 

QS 

VA15 

MN4 J 

1 


4 

RP 

30000 

MN6 


l 

5 

TP 

VA23 

(30000), 

) Seq.—>list 

6 

RA 

EW3 

VA15 


Set address. 

7 

MJ 

0 

MH16 




CA 

MN10 
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Possible Special Case 



IA 

MMO 


0 

TP 

VA32 

A 1 

1 

EJ 

CIO 

MM4 ) 

2 

TP 

CA27 

VC3 

3 

MJ 

0 

MM5 

4 

TP 

CH37 

VC3 

5 

TP 

VA22 

A 1 

6 

EJ 

CH24 

MG J 

*7 

1 

EJ 

CA3 

MP 

10 

EJ 

CH25 

MQ 

11 

TO 

CH26 

MM14 \ 

12 

TU 

CH27 

MM15 / 

13 

TP 

CH24 

VC1 

14 

TP 

(30000) 

A \ 

15 

EJ 

(30000) 

MM17 J 

16 

MJ 

0 

MLO 

17 

RA 

MM14 

CH22 \ 

20 

RA 

MM15 

CH22 J 

21 

U 

VC1 

MM14 

22 

TP 

CH30 

EW2 \ 

23 

RJ 

EWO 

EWl ) 

24 

MJ 

0 

MH17 


CA 

MM25 



->MM4 

Clear VC3 

Set VC3 for - 
# symbols = 3—>MGO 
No i 

= i—>MPO 
= 2 —> MQO 4 i 

Set loop addresses 

Set index 
- 1/2 —> A 

= —> MM17 * —> MLO 

Modify 

Return 

16100 —>CW of - 1/2—Mist 

-*© 


Two Symbols in Sequence 



IA 

MQ 



0 

TP 

VA32 

A 1 

L - —>MQ3 

1 

EJ 

Cl 

MQ3 J 

[ 

2 

MJ 

0 

ML 

No— >UL 

3 

TP 

VA33 

A 


4 

EJ 

CI1 

MX 

Next sym. = 1-—>MX 

5 

EJ 

CI3 

MS 

= 2 —>MS 

6 

EJ 

CI4 

MV 

= 3 — 

7 

TP 

SZ11 

Q 1 

^ Constant | No—>ML 

10 

QJ 

MQll 

ML J 

11 

TP 

MI2 

RS4 1 

t 

12 

RJ 

RS2 

RS . 

) Convert to octal 

13 

TP 

CH32 

A ' 

> # > 77—>MW 

14 

TJ 

RS3 

MW j 

1 no i 

15 

SP 

RS3 

0 1 

lSOxx') 

16 

SA 

VC3 

o 1 

l3lxxj—>list 

17 

AT 

CI5 

EW2 i 

> 

20 

RJ 

EW 

EW l j 


21 

MJ 

0 

MH16 



CA 

MQ22 
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* symbols in sequence = 3 



IA 

MG 



0 

TU 

CH34 

MG3 ) 

Set loop addresses 

1 

TO 

CH27 

MG4 J 

r 

2 

TP 

CH25 

VCl 

Set index = 2 

3 

TP 

(30000) 

A 

1/2 —> A 

4 

EJ 

(30000) 

MG6 

= Special case—>MG6 

5 

MJ 

0 

ML 

* ->ML 

6 

RA 

MG3 

CH22 ] 

Modify addresses 

7 

RA 

MG4 

CH22 J 

10 

IJ 

VCl 

MG3 


11 

TP 

CH33 

EW2 1 

|, CW —>list 

12 

RJ 

EW 

EW1 J 

—*© 

13 

MJ 

0 

MH17 


CA 

MG14 



0 

1 

2 

3 

4 




# 

symbols = 

IA 

MP 



TP 

VA32 

A 


EJ 

cn 

MH16 

= 1- 

EJ 

CI3 

MS 

= 2- 

EJ 

CI4 

MV 

= 3 

MJ 

0 

MQ7 

—> 

CA 

MP5 




-*© 
—>MS 

—»MV 
MQ7 


862 



Superscript Symbol 


0 

IA 

TP 

MKO 

SY11 

Q ( 

„ Constant —>MTO 

1 

QJ 

MTO 

MK2 i 

no \|f 

2 

TP 

SY2 

A 

l - >MU 

3 

EJ 

CG12 

MU 

1 No (assume /) ^ 

4 

TP 

CA16 

PC3 

Set PC 

5 

TP 

VA22 

A 1 

| 

6 

AT 

CH17 

A ' 

l / —^sequence 

7 

TV 

A 

MK10 

r 

10 

TP 

CH35 

(30000). 


11 

TP 

VA22 

A ) 


12 

AT 

CH20 

A ! 

l /—especial sequence 

13 

TV 

A 

MK14 


14 

TP 

SY2 

(30000) 


15 

MJ 

0 

MH 

—>get next symbol of sequence 


CA 

MK16 




Superscript - 



IA 

MUO 



0 

TP 

CA15 

PC3 

Set PC 

1 

TP 

VA22 

A 1 


2 

AT 

CH17 

A 1 

[->sequence 

3 

TV 

A 

MU4 1 


4 

TP 

CH36 

(30000) J 


5 

TP 

VA22 

A ] 


6 

AT 

CH20 

A 1 

-> special sequence 

7 

TV 

A 

MU10 

f 

10 

TP 

SY2 

(30000) > 

1 

11 

MJ 

0 

MH 

-^return 


CA 

MU12 




863 



Superscript Up Constant 


0 

IA 

TP 

MT 

CA14 

PC 3 

1 

RJ 

RB 

RBI 

2 

TP 

SY2 

MI4 

3 

TP 

SY3 

MI5 > 

4 

RJ 

MT 

Mil J 

5 

TP 

MI2 

GG4 

6 

TP 

MI3 

GG5 } 

7 

RJ 

GG2 

GG 

10 

TP 

GG3 

A ) 

11 

RJ 

GW 

gwi ; 

12 

TP 

Q 

VC2 

13 

TP 

VA22 

A 

14 

AT 

CH17 

A 

15 

TV 

A 

MT16 

16 

TP 

VC2 

(30000) 

17 

TP 

VA22 

A 

20 

AT 

CH20 

A 

21 

TV 

A 

MT22 

22 

TP 

GG3 

(30000) 

23 

TP 

SY6 

A 1 

24 

ZJ 

MT25 

MH J 

25 

TP 

CA24 

VC 

26 

MJ 

0 

MH 


CA 

MT27 



Set PC 

Check constant 
Lower constant 

Convert to floating point 
Assign CW 
Store CW 
CW —» sequence 

Fltpt. const.-> 

Special sequence 

Pt. in sequence \i no—»MH 
Set ind. 

->return 


Constant = 2 



IA 

MS 


0 

TP 

VC 3 

A 

1 

AT 

CI6 

EW2) 

2 

RJ 

EW 

EW1J 

3 

MJ 

0 

MH17 


CA 

MS4 



CW—>list 
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Constant = 3 



IA 

MV 


0 

TP 

VC3 

A 

1 

AT 

CI7 

EW2 

2 

RJ 

EW 

EWl 

3 

MJ 

0 

MH17 


CA 

MV4 



CW—»list 



Constant = 1 



IA 

MX 


0 

TP 

Clio 

EW2\ 

1 

RJ 

EW 

EWlJ 

2 

MJ 

0 

MH17 


CA 

MX3 



CW—» list 


© 


l Const. I > 77 


IA MW 

0 RA VA23 CA3 Change POW to 101 

1 MJ 0 ML 

CA MW2 
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Right POW 



IA 

ZR 


0 

TP 

CH37 

EW2 ) 

1 

RJ 

EWO 

EWl j 

2 

TP 

CA17 

PC 3 

3 

TP 

VA5 

A ] 

4 

ZJ 

ZR5 

NY J 

5 

RJ 

WA 

WA1 ' 

6 

TP 

VA6 

GF10 

7 

TP 

GF 

UP3 

10 

RJ 

UP2 

UP 

11 

MJ 

0 

ZM 


CA 

ZR12 



CW —> string 
Set PC 

Ss. mode i no—»NY 


E35 


Not Ss. mode 


0 

IA 

TP 

NY 

VA16 

q i 

[ Floating pt. eq 

1 

QJ 

NY2 

ZM J 

> No l 

2 

RJ 

WA 

WAl ) 

3 

TP 

GF12 

UP3 

f E36 

4 

RJ 

UP 2 

UP j 

—© 

5 

MJ 

0 

ZM 


CA 

NY6 



Right ) 



IA 

ZQ 


0 

TP 

CA5 

PC3 

1 

TP 

CG34 

EW2 ) 

2 

RJ 

EWO 

EWl J 

3 

TP 

VA4 

A } 

4 

ZJ 

FP 

ZQ5 J 

5 

TP 

VA3 

A 

6 

ZJ 

ZQ7 

ZQlO 

7 

RS 

VA3 

CA3 

10 

RS 

VAl 

CA3 

11 

TJ 

CA3 

FLO 

12 

EJ 

VA5 

FM 

13 

TU 

VC10 

ZQ14) 

14 

EJ 

(30000) 

FN J 

15 

MJ 

0 

ZM 


CA 

ZQ16 



Set PC 

CW —> string 

Last raiser |—>FP 
no ^ 

( raisers = 0 —> ZQlO 
No l 

( raisers - 1 
Lower level 
Too low —>FLO 
Leaving Ss. mode —>FMO 
Leaving Lib.—>FNO 

— 
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Leaving Lib. 



L4 

FN 


0 

TO 

VC20 

FN1 

1 

TP 

(30000) 

A 

2 

ZJ 

FN3 

FN10 

3 

RJ 

WA 

WA1 

4 

TO 

VC 30 

FN5 

5 

TP 

(30000) 

GH13 

6 

TP 

GH 

DP3 

7 

RJ 

0P2 

OP 

10 

RS 

VC10 

CH23 

11 

RS 

VC20 

CH23 

12 

RS 

VC 30 

CH23 

13 

MJ 

0 

ZM 


CA 

FN14 



# commas correct—>FN10 
No i 


E37 


Take Lib. off list 
-*© 


Leaving Ss. mode 


0 

IA 

TP 

FM 

CA27 

VA5 

Clear Ss. mode 

1 

TP 

VA36 

A i 

l # Ss. correct — 

2 

ZJ 

FM3 

ZM 

' No i 

I 

3 

RJ 

WA 

WA1 ' 

4 

TP 

VA6 

GI17 

r 

5 

TP 

GT12 

0P3 1 

J E40 

6 

RJ 

0P2 

OP ^ 


7 

MJ 

0 

ZM 


CA 

FM10 




Level too Low 


0 

IA 

TP 

FL 

CA3 

VAl 

Set level = 0 

1 

TP 

VA 

Q ] 

l Previous point 

2 

QJ 

ZM 

FL3 J 

No 1 

3 

RJ 

WA 

WAl 1 

▼ 

1 

4 

TP 

GT 

0P3 , 

f E39 

5 

RJ 

0P2 

OP J 

I 

6 

TP 

CA24 

VA 

Set point 

7 

MJ 

0 

ZM 



CA 

FL10 
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Interlocking ( and 



IA 

FP 


0 

RJ 

WA 

WA1 1 

1 

TP 

GH24 

DP3 

2 

RJ 

DP2 

DP J 

3 

MJ 

0 

ZQIO 


CA 

FP4 



E38 

-> ) Section 


Right ( 


0 

IA 

TP 

ZNO 

CA4 

PC3 

Set PC 

1 

TP 

CG24 

EW2 1 

> CW —>string 

2 

RJ 

EW 

EWl J 

> 

3 

TP 

VA5 

A 1 

\ Not Ss. mode—>ZN11 

4 

ZJ 

ZN5 

ZN11J 

i Ss. mode i 

5 

RJ 

WA 

WAl >| 


6 

TP 

VA6 

GJ10 1 

l E41 

7 

TP 

GJ 

DP3 


10 

RJ 

DP2 

DP > 

I 

1 

11 

TP 

CA27 

VA4 

Clear 1 leyel raisers 

12 

RA 

VA3 

CA3 " 

I Raise level 

13 

RA 

VAl 

CA3 J 

1 

14 

MJ 

0 

ZM 


CA 

ZN15 
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Right~Constant 


D1 



IA 

ZVO 




0 

TP 

CA6 

PC 3 

Set PC 


1 

TP 

VA5 

A 7 

Ss. mode—>ZV5 


2 

ZJ 

ZV5 

ZV3 J 

No 


3 

TP 

VA16 

Q ? 

1 


4 

QJ 

ZV5 

xco J 

Fixed eq. v no — 

->xco 

5 

RJ 

RD 

RDl 

Check const. 


6 

TP 

SY2 

RS4 ] 

Convert to fixed 

point 

7 

RJ 

RS2 

RSO J 



10 

TP 

RS3 

A ? 

Assign CW 


11 

RJ 

GWO 

GW 1 J 



12 

TP 

Q 

EW2 1 

CW—>string-out 


13 

RJ 

EWO 

EWl J 



14 

MJ 

0 

ZM 

New^£W->list J, 

err. 


CA 

ZV15 







Floating Point Constant 


IA 

XCO 



0 

RJ 

RBO 

RBI 

Check const. 

1 

TP 

SY2 

GG4 | 


2 

TP 

SY3 

GG5 > 

Convert to fltpt. 

3 

RJ 

GG2 

GGO J 


4 

TP 

GG3 

A 

Const. —»A 

5 

MJ 

0 

ZV11 



CA 

XC6 




858 



Right - Var. - Before 


0 

IA 

TP 

Z! 

VD 

A \ 

Before —>ZT2 

1 

ZJ 

XD 

ZT2 ) 

After —>XD =® 
Not in Ftn. list- 

2 

RJ 

TO 

T01 ) 

3 

MJ 

0 

XE J 

In 4 

4 

TP 

TU3 

EW2 ) 

CW — > string 

5 

RJ 

EW 

EWl J 


6 

TP 

VA5 

A 

1 

7 

ZJ 

ZT10 

XF 

Ss. mode » no —* 

10 

TP 

TO 3 

Q l 

{ CW — > A 

11 

QT 

CG17 

A J 

> 

1 

12 

EJ 

CI25 

XG 

75xxx — »XG no 

13 

TP 

SY10 

Q 

Assume 62xxx 

14 

QJ 

ZT22 

ZT15 

IJKLM —>ZT22 no 

15 

RJ 

WA 

WA1 n 


16 

TP 

SY2 

ER6 


17 

TP 

VA6 

ER20 

} E21 

20 

TP 

ER 

0P3 


21 

RJ 

0P2 

OP > 

i 

22 

TP 

CA6 

PC3 

Set PC 

23 

MJ 

0 

ZM 



CA 

ZT24 



XE 


Right ~ In Ftn. list Ss. mode 75xxx 



IA 

XG 



0 

TP 

CA7 

PC 3 

) —> PC 

1 

RJ 

PC 

PCI . 

f 

2 

RJ 

WA 

WAl \ 


3 

TP 

SY2 

EP30 


4 

TP 

VA6 

EP41 

> E20 

5 

TP 

EP22 

OP 3 


6 

RJ 

0P2 

OP J 


7 

RJ 

SY 

SY1 

Sym -—s* A 

10 

EJ 

CA30 

XG12 

(—>XG12 no 

11 

MJ 

0 

ZM3 

-»■© 

12 

TP 

GP17 

OPS l 

[ H Ss. not checked 

13 

RJ 

0P2 

OP J 

f 

14 

RJ 

FY 

FV1 

delete Ss. 

15 

MJ 

0 

YV 

A • 

16 

MJ 

0 

ZM1 

— © 


CA 

XG17 
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Not Ss. mode-in Ftn. list 



IA 

XF 



0 

TP 

TU3 

Q 1 

f xxOOO —»A 

1 

QT 

CG17 

A J 

r 

2 

EJ 

CI25 

XH 

75xxx —>XH no ' 

3 

TP 

SY10 

Q 1 

[ 1 

4 

QJ 

XF5 

XF11 J 

IJKIil V no —>XF11 

5 

RJ 

WA 

WAl ^ 

l 

6 

TP 

SY2 

ER27 1 

L E22 

7 

TP 

ER22 

DP3 l 


10 

RJ 

0P2 

DP J 

i 

11 

TP 

CA6 

PC3 

Set PC 

12 

MJ 

0 

ZM 

—>© 


CA 

XF13 



75xxx 



IA 

XH 



0 

TP 

CA7 

PC3 } 

Do PC 

1 

RJ 

PC 

PCI J 

> 

2 

RJ 

SY 

SYl 

Sym —> A 

3 

EJ 

CA30 

XI 

(^XI 

4 

RJ 

WA 

WAl > 


5 

TP 

SZ2 

EX6 1 

1 E23 

6 

TP 

EX 

DP3 

r 

7 

RJ 

DP2 

DP > 

1 

10 

TP 

SY2 

A 

Sym—> A 

11 

MJ 

0 

ZM3 



CA 

XH12 



75xxx ( 


0 

IA 

TP 

XI 

CA4 

PC3 

Set PC 

1 

TP 

VA1 

VA5 ' 

) Set Ss. mode 

2 

TP 

SZ2 

VA6 . 

f 

3 

TP 

CA27 

VA36 

Clear # commas 

4 

TP 

CG24 

EW2 ^ 

CW—>list 

5 

RJ 

EW 

EWl J 

> 

—^*•(-*© 

6 

MJ 

0 

ZNll 


CA 

XI7 



870 



Right-Before-Var 
Not in Ftn. list 



IA 

XE 


0 

RJ 

TA 

TAl > 

1 

MJ 

0 

XQ J 

2 

TP 

TA4 

EW2 S 

3 

RJ 

EW 

EWl ) 

4 

TP 

CA6 

PC3 

5 

TP 

VA16 

Q l 

4 

W 

f\ T 
VO 

VT?*T 

i 

XR / 

7 

TP 

TA4 

Q 

10 

QT 

CG17 

A 

11 

EJ 

CG17 

XT 

12 

EJ 

CA33 

XV 

13 

EJ 

CA31 

XW 

14 

EJ 

CA25 

ZM 

15 

TP 

CA20 

PC3 ) 

16 

RJ 

PC 

PCI j 

17 

RJ 

WA 

WAl 

20 

TP 

SY2 

EL4 l 

21 

TP 

EL 

UP3 

22 

RJ 

UP2 

DP J 

23 

RJ 

SY 

SYl 

24 

EJ 

CA30 

XE26 

25 

MJ 

0 

ZM3 

26 

TP 

GP 

DP3 \ 

27 

RJ 

DP2 

DP J 

30 

RJ 

FV 

FV1 

31 

MJ 

0 

YV 

32 

MJ 

0 

ZM1 


CA 

XE33 



Not in CB List—>XQ in I 

CW —>list 

Set PC 

Not fixed eq.—>XR 
Fixea ^ 


77xxx —> XT 
66xxx —> XV 
65xxx —> XW 
64xxx —>(c) 
5xxxx i/ 

Do PC 
E13 



65xxx 



IA 

XW 


0 

RJ 

WA 

WAl 

1 

TP 

SY2 

EL17 

2 

IP 

EL12 

DP3 

3 

RJ 

DP2 

DP 

4 

MJ 

0 

ZM 


CA 

XW5 



E14 



871 



66xxx 



IA 

XV 



0 

TP 

CAlO 

PC3 1 


1 

RJ 

PC 

PCI J 

Do PC 

2 

RJ 

WA 

WAl \ 


3 

TP 

SY2 

EM3 ' 

l E15 

4 

TP 

EM 

DP3 


5 

RJ 

DP2 

DP J 

1 

6 

RJ 

SY 

SY1 

Sym—a 

7 

EJ 

CA30 

XVI1 

(-^x 

10 

MJ 

0 

ZM3 

— © 

11 

TP 

GP 

DP3 ' 

^ "Args 

12 

RJ 

DP2 

DP 

13 

RJ 

FV 

FV1 

Delete 

14 

MJ 

0 

YV 

A 

15 

MJ 

0 

ZM1 

— © 


CA 

XV16 



no 


77xxx 



IA 

XT 



0 

TP 

CA7 

PC3 ] 

i 

1 

RJ 

PC 

PCI J 

\ Do PC 

2 

RJ 

WA 

WAl \ 


3 

TP 

SY2 

EM17' 

L 

4 

TP 

EM11 

DP3 

E16 

5 

RJ 

DP2 

DP J 


6 

RJ 

SY 

SYl 

Sym—>A 

7 

EJ 

CA30 

XTll 

(— >mi 
No —>© 

L 

10 

MJ 

0 

ZM3 

11 

TP 

GP17 

DP3 i 

12 

RJ 

DP2 

DP J 

l w Ss. not ! 

13 

RJ 

FV 

FV1 

Delete Ss 

14 

MJ 

0 

YV 

A 

15 

MJ 

0 

ZM1 

->C 


CA 

XT16 




872 



Var. 

Before - In CB List 
Floating Point Equation 



IA 

XR 




0 

TP 

VA5 

A 


7 Ss. mode-XY 

1 

ZJ 

XY 

XR2 


J No 

2 

TP 

TA4 

Q 


) 

3 

QT 

CG17 

A 

J 

xxOOO—» A 

4 

EJ 

CG17 

XZ 


77xxx —> XZ 

5 

EJ 

CA33 

HC 


66xxx—> jlC 

6 

EJ 

CA31 

ZM 


65xxx—>(£) 

7 

EJ 

CA25 

HF 


64xxx—» HF 

10 

TP 

CA20 

PC3 

1 

5xxxx | pair check 

11 

RJ 

PC 

PCI 

J 


12 

TP 

TA4 

Q 

1 

# operands = 1—>(C) 

13 

QT 

CI31 

VA13 


1 

14 

TJ 

CH25 

ZMl 

J 

No v 

15 

RJ 

SY 

SY1 


Sym—>A 1 

16 

EJ 

CA30 

HG 


(—no 1 

17 

TP 

SZ2 

EN5 

i 


20 

RJ 

WA 

WA1 



21 

TP 

EN 

DP3 


E17 

22 

RJ 

DP 2 

DP 

j 


23 

TP 

SY2 

A 


Sym—>A 

24 

MJ 

0 

ZM2 




CA 

XR25 





Lib. ( 



IA 

HG 



0 

TP 

VAl 

VA12 

Set Lib. 

1 

RA 

VC 20 

CH23 ? 

Room for Lib 

2 

TJ 

CI33 

HH J 

No i 

3 

RS 

VC20 

CH23 

Add. - 1 

4 

RJ 

WA 

WAl n 


5 

TP 

SZ2 

GM251 


6 

TP 

GM11 

DP3 f 

E49 

7 

RJ 

DP2 

DP J 


10 

RJ 

FV 

FV1 

Delete Lib. 

11 

MJ 

0 

YV 

A . r—^C2 
— >© 

12 

MJ 

0 

ZMl 


CA 

HG13 



873 



Room for Lib. 



IA 

HH 



0 

TV 

A 

HH2 


1 

TP 

VA13 

A 1 

> # commas—>list 

2 

ST 

CA3 

(30000) J 

i 

3 

RA 

VC10 

CH23 


4 

TV 

A 

HH5 ) 

1 Lib. level—>list 

5 

TP 

VAl2 

(30000) J 

> 

6 

RA 

VC 30 

CH23 1 

1 

7 

TV 

A 

HHlO 

? XS3 of Lib.—>list 

10 

TP 

SZ2 

(30000) j 

1 

11 

MJ 

0 

ZN 

->( section 


CA 

HH12 




64xxx 



IA 

HF 

\ 

0 

RJ 

WA 

WAl j 

1 

TP 

SY2 

EK25 V 

2 

TP 

EK20 

UP3 

3 

RJ 

UP 2 

UP J 

4 

MJ 

0 

ZM 


CA 

HF5 



E12 



Floating Pt. Eq. Right 


66xxx j 



IA 

HC 


0 

TP 

CA10 

PC3 

1 

RJ 

PC 

PCI 

2 

RJ 

SY 

SYl 

3 

EJ 

CA30 

WD 

4 

MJ 

0 

ZM3 


CA 

HC5 



Pair check 


Sym —> A 




874 



77xxx ^ 



IA 

XL 



0 

TP 

CA7 

PC3 \ 

Pair check 

1 

RJ 

PC 

PCI J 


2 

RJ 

SY 

SYl 

Sym — 

3 

EJ 

CA30 

HK 

(—> HK 

4 

RJ 

WA 

WAl ] 


5 

TP 

SZ2 

EN30 \ 

E18 

6 

TP 

EN22 

0P3 


7 

RJ 

UP2 

UP J 


10 

TP 

SY2 

A 

Sym —>A 

11 

MJ 

0 

ZM3 



CA 

XZ12 



77xxx ( 



IA 

HK 



0 

TP 

VAl 

VA5 

Set Ss. mode 

1 

TP 

TA5 

Q 1 


2 

QT 

CA2 

A f 

Ss. - 1—=>VA36 

3 

ST 

CA3 

VA36 J 


4 

TP 

SZ2 

VA6 

Store XS3 of variable 

5 

TP 

CA4 

PC3 

Set PC 

6 

TP 

CG24 

EW2 \ 

(—> list 

7 

RJ 

EW 

EWl J 

© 

t 

t 

10 

MJ 

0 

ZNll 


CA 

HK11 



875 



Ss. mode - Right - In CB List 


0 

IA 

TP 

XY 

TA4 

Q 

\ 

1 

QT 

CG17 

A 

f xxOOO —> A 

2 

EJ 

CG17 

HL 

77xxx-^. HL 

3 

EJ 

CA33 

MM 

66xxx —> HM 

4 

EJ 

CA31 

HN 

65xxx—HN 

5 

EJ 

CA25 

ZM 

64xxx—■>(£) 

6 

TP 

CA20 

PC3 ' 

1 5xxxx ^ 

7 

RJ 

PC 

PCI „ 

f Do pair check 

10 

RJ 

WA 

WAl > 


11 

TP 

SY2 

EJ4 

i 

12 

TP 

VA6 

EJ13 ' 

> E9 

13 

TP 

EJ 

DP3 


14 

RJ 

0P2 

DP ) 


15 

RJ 

SY 

SYl 

Sym—> A 

16 

EJ 

CA30 

XY20 

(—>XY20 

17 

MJ 

0 

ZM3 

—© 

20 

TP 

GP25 

DP 3 7 

21 

RJ 

DP 2 

DP J 

"Args not chec] 

22 

RJ 

FV 

FV1 

Delete Lib. 

23 

MJ 

0 

YV 

— 

24 

MJ 

0 

ZM1 

—>(cj 


CA 

XY25 




no 


65xxx 



IA 

HN 


0 

TP 

CA6 

PC3 

1 

RJ 

WA 

WAl 

2 

TP 

SY2 

ER6 

3 

TP 

VA6 

ER20 

4 

TP 

ER 

DP3 

5 

RJ 

DP2 

DP 

6 

MJ 

0 

ZM 


CA 

HN7 



Set PC 

E21 
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66xxx 


0 

IA 

TP 

HM 

CA10 

PC3 1 

i 

1 

RJ 

PC 

PCI J 

Do PC 

2 

RJ 

WA 

WAl "\ 


3 

TP 

SY2 

EJ20 

1 

4 

TP 

VA6 

EJ25 1 

> E10 

5 

TP 

EJ15 

DP3 I 


6 

RJ 

DP2 

DP J 


7 

RJ 

SY 

SYl 

Sym —i 

10 

EJ 

CA30 

WD 

c— 

11 

MJ 

0 

ZM3 



CA 

HM12 



77xxx 



IA 

HL 

0 

TP 

CA7 

1 

RJ 

PC 

2 

RJ 

WA 

3 

TP 

SY2 

4 

TP 

VA6 

5 

TP 

EI20 

6 

RJ 

DP2 

7 

RJ 

SY 

10 

EJ 

CA30 

11 

MJ 

0 

12 

TP 

GP17 

13 

RJ 

DP2 

14 

RJ 

Fv 

15 

MJ 

0 

16 

MJ 

0 


CA 

HL17 


PC3 ) 
PCI J 
WAl . 
EI26 | 
EI35 y 
DP3 
DP J 
SYl 
HL12 
ZM3 
DP3 \ 
DP J 
FVi 
Y V 
ZM1 


Do PC 

E8 


Sym—>A 
(—»HL12 

->© 


no 


**Ss. not checked** 
Delete Ss. 

A.—>(C2) 

—■<£) 


877 



Variable Right - Before Not in Ftn. or CB Lists 


0 

IA 

RJ 

XQ 

RH 

RH1 

Check symbol 

1 

TP 

CA27 

TF3 "l 

Set to add to CB 

2 

TP 

CA26 

TF 

> 

3 

TP 

SY2 

TFl J 

! 

4 

TP 

VA16 

Q 1 

1 Fixed —>HQ 

5 

QJ 

HQ 

XQ6 J 

1 No 1 

6 

TP 

VA5 

A 1 

i Not Ss.->HB 

7 

ZJ 

XQ10 

HR j 

i Ss. i 

10 

TP 

SY10 

Q i 

1 Not UKLM— 

11 

QJ 

XQ12 

HS J 

i Yes \ 

12 

RJ 

TK 

tki ; 

[ CW = 64xxx 

13 

AT 

CA25 

TF2 J 

[ 

14 

TP 

A 

EW2 ' 

) CW—>list 

15 

RJ 

EW 

EWl . 

f 

16 

RJ 

TE 

TEl 

File —>CB List 

17 

TP 

CA6 

PC3 

Set PC 

20 

MJ 

0 

ZM 

— *© 


CA 

XQ21 




IA 

HS 

Not UKLM 

0 

RJ 

WA 

WAl 


1 

TP 

SY2 

EK6 

l Ell 

2 

TP 

VA6 

EK16 

3 

TP 

EK 

DP3 

i 

4 

RJ 

DP2 

DP J 


5 

RJ 

TK 

TKI N 

1 

6 

AT 

CA31 

EW2 

> Assign 65xxx CW 

7 

TP 

A 

TF2 J 

1 

10 

RJ 

EW 

EWl 

CW—>list 

11 

RJ 

TE 

TEl 

file—>CB List 

12 

TP 

CA6 

PC3 

Set PC 

13 

MJ 

CA 

0 

HS14 

ZM 

—•© 


878 



Not Ss. Mode 


IA HR 


0 

TP 

CA6 

PC 3 

Set PC 

1 

TP 

SYlO 

Q 1 

L UKLM —> HU 

2 

QJ 

HU 

HR 3 J 

1 No i 

3 

RJ 

TK 

TK1 ] 

65xxx CW 

4 

AT 

CA31 

TF2 J 

t 

5 

TP 

A 

EW2 i 

1 CW —>list 

6 

RJ 

EW 

EW1 J 

1 

7 

RJ 

TE 

TE1 

File —>CB List 

10 

MJ 

0 

ZM 



CA 

HR 11 






IJK LM 



IA 

HD 



0 

RJ 

WA 

WAl n 


1 

TP 

SY2 

ER25 1 

E12 

2 

TP 

EK20 

UP3 f 


3 

RJ 

UP2 

UP J 


4 

RJ 

TK 

TK1 \ 

Assign 64xxx CW 

5 

AT 

CA25 

TF2 ; 


6 

TP 

A 

EW2 \ 

CW—>list 

7 

RJ 

EW 

EW1 ; 


10 

RJ 

TE 

TE1 

File —>CB List 

11 

TP 

CA6 

PC3 

Set PC 

12 

MJ 

0 

ZM 



CA 

HU13 



Fixed Equation 


0 

IA 

TP 

HQ 

SYlO 

Q ( 

7 IJKLM—XQll 

1 

QJ 

XQll 

HQ2 J 

! No \ 

2 

RJ 

WA 

WAl ] 

) * 

3 

TP 

SY2 

ELI 7 

r E14 

4 

TP 

ELI 2 

UP3 


5 

RJ 

UP2 

UP ^ 

) 

6 

MJ 

0 

HS5 

- > 65xxx CW 


CA 

HQ7 




879 



Right-After-Var. In P.Op. List 



IA 

XD 



0 

RJ 

TS 

TS 1 

X Not in P.Op. list 

1 

MJ 

0 

HV - 

l In j 

2 

TP 

TS3 

EW2 j 

CW —> string 

3 

RJ 

EW 

EWl J 

i 

4 

TP 

CA6 

PC 3 

Set PC 

5 

TP 

VA16 

Q 

l Fixed eq. —^HW 

6 

QJ 

HW 

XD7 „ 

1 No | 

7 

TP 

VA5 

A ( 

J Ss. mode —>HX 

10 

ZJ 

HX 

XDllJ 

j No l 

11 

TP 

TS3 

Q ] 


12 

QT 

CG17 

A J 

xxOOO —=> A 

13 

EJ 

CG21 

HY 

6lxxx -—> HY 

14 

EJ 

CG22 

HZ 

63xxx —HZ 

15 

TP 

CA7 

PC3 1 

■ 76Yxx j 

16 

RJ 

PC 

PCI J 

Do PC 

17 

RJ 

SY 

SYl 

Sym—> A , 

20 

EJ 

CA30 

NA 

(—>NA no * 

21 

RJ 

WA 

WA1 ] 

) 

22 

TP 

SZ2 

EP6 

r E19 

23 

TP 

EP 

UP3 


24 

RJ 

UP2 

OP -j 


25 

TP 

SY2 

A 

Sym —> A 

26 

MJ 

0 

ZM3 

—© 


CA 

XD27 



0 

IA 

TP 

NA 

TS3 

Q 1 

76Yxx ( 

| 

1 

QT 

CG25 

Q ! 

> *Ss.—>Q 

2 

LQ 

Q 

36 J 

1 

3 

TP 

Q 

A 1 

* commas —>VA36 
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11 
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MJ 
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ZN11 
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2 
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MJ 
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MJ 
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HX 
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TS3 
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1 
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CG17 
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1 

2 

EJ 

CG21 

NB 
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3 

EJ 

CG22 

NC 
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4 

TP 

CA7 
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l 76Yxx 

5 

RJ 

PC 

PCI „ 

) Do PC 

6 

RJ 

WA 

WAl ' 

) 

7 

TP 

SY2 

EH6 i 

i 

10 

TP 

VA6 

EH20 

\ E5 

11 

TP 

EH 

DP3 1 

[ 

12 

RJ 

DP2 

DP J 


13 

RJ 

SY 

SYl 

Sym —>A 

14 

EJ 

CA30 

HX16 

(—>HX16 

15 

MJ 
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ZM3 


16 

RJ 

FV 

FVl 

Delete SS 

17 

MJ 
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YV 

A 
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—© 


CA 

HX21 
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TP 

HW 
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1 

QT 

CG17 

A J 

1 

2 

EJ 

CG21 

ND 

6lxxx—> ND 

3 

EJ 

CG22 

NE 

63xxx—> NE 

4 

TP 

CA7 

PC3 ] 

' 76Yxx 1 

5 

RJ 

PC 

PCI J 

i Do PC 

6 

RJ 

WA 

WA1 > 

1 

7 

TP 

SY2 

EF24 

l E2 

10 

TP 

EF16 

0P3 


11 

RJ 

0P2 

UP > 

/ 

12 

RJ 

SY 

SYl 

Sym—>A 

13 

EJ 

CA30 

HW15 

(—>HW15 

14 

MJ 

0 

ZM3 

—© 

15 

TP 

GP10 

UP3 1 

16 

RJ 

0P2 

UP J 

"Ss. not checked 1 

17 

RJ 

FV 

FVl 

Delete Ss. 

20 

MJ 

0 

YV 


21 

MJ 

0 
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^© w 


CA 

HW22 
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IA 

TP 

ND 

CA10 

PC 3 1 
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PCI J 

' Do PC 

2 

RJ 

WA 

WAl v 


3 

TP 

SY2 
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1 

4 

TP 

EF 

UP3 

1 E1 

5 

RJ 

UP2 

UP j 

1 

6 

RJ 

SY 

SYl 
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7 

EJ 

CA30 

WD 

(—>WJ 

10 

MJ 

0 

ZM3 

—© 


CA 

NDll 
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63xxx 



IA 

NE 
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TP 

SYIO 

Q 

1 

IJKLM—>© 
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QJ 

ZM 

NE2 

j 

no i 

2 

RJ 

WA 

WAl 

7 

▼ 

3 

TP 

SY2 

EG6 


E3 

4 

TP 

EG 

DP3 



5 

RJ 

UP2 

DP 

J 


6 

MJ 

0 

ZM 


—*© 


CA 

NE7 





SS Mode 63xxx 



IA 

NC 


0 

TP 

SYIO 

Q 

1 

QJ 

ZM 

NC2 

2 

RJ 

WA 

WAl 

3 

TP 

SY2 

EH30 

4 

TP 

VA6 

EH42 

5 

TP 

EH22 

DP3 

6 

RJ 

DP2 

UP 

7 

MJ 

0 

ZM 


CA 

NClO 



} 


) 


IJKLM—>(c) 
No | ^ 


E6 



0 

IA 

TP 

NB 

CA10 

PCS ] 
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1 

RJ 

PC 

PCI J 

[ Do PC 
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RJ 

WA 

WAl 


3 

TP 

SY2 

EG24 

| 

4 

TP 

VA6 

EG36 

► E4 

5 

TP 

EG20 

DP3 


6 

RJ 

DP2 

DP J 


7 

RJ 

SY 
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Sym—> i 

10 

EJ 

CA30 

WD 

(—>WD 

11 

MJ 
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ZM3 



CA 

NB12 
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Right, After, Var. Not in Pseudo Op. List 



IA 

HV 



0 

RJ 

TA 

TA1 7 


1 

MJ 

0 
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2 

TP 

TA4 

Q 1 

4xxxx —»FU 

3 

QT 

CG30 

A 

1 

4 

EJ 

CG31 

FU J 
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5 

TP 

TA4 

EW2 7 


6 

RJ 

EW 

EW1 3 

CW—>list 

7 

TP 

CA6 

PC3 

Set PC 

10 

TP 

VA16 

Q < 

t Fixed—>NG 

11 

QJ 

NG 

HV 12 J 

i Floating 1 

12 

TP 

VA5 

A 

J Ss. mode—>NH 

13 

ZJ 

NH 

HV 14 . 
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14 

TP 

TA4 

Q 

i 

15 

QT 

CG17 
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CW—>A 

16 

EJ 

CG17 

NI 

77xxx—>NI 

17 

EJ 

CA25 

NJ 

64xxx—»NJ 

20 

EJ 

CA31 

ZM 

65xxx— 3>(c) 

21 

EJ 

CA33 

NL 

66xxx—>NL 

22 

TP 

CA20 

PC3 7 

5xxxx 1 

23 

RJ 

PC 

PCI J 
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24 

TP 

TA4 

Q 1 

CW—>A—>VA13 

25 

QT 

CI31 

VA13 J 


26 

TJ 

CH25 

ZM1 
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27 

RJ 

SY 

SYl 

Sym. —>A i 

30 

EJ 

CA30 

HG 

(—>HG no i 

31 

RJ 

WA 
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f 

32 

TP 

SZ2 
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► E17 

33 

TP 

EN 

UP3 


34 

RJ 

UP 2 

UP - 

) 

35 

TP 

SY2 

A 


36 

MJ 

0 

ZM3 


CA 

HV37 
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in 


no 


66xxx 


0 

IA 

TP 

NL 

CAlO 
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1 
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3 
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64xxx 



TA 

NJ 


0 

RJ 

WA 
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1 

TP 

SY2 

EK25 

2 

TP 

EK20 

DP3 

3 

RJ 

UP2 

DP 

4 

MJ 

0 

ZM 


CA 
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E12 
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IA 

NI 


0 

TP 

CA7 

PC3 \ 

1 

RJ 
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2 

RJ 

SY 
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3 

EJ 

CA30 
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4 

RJ 

WA 
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5 
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6 
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DP3 

7 

RJ 

DP2 

DP - 

10 

TP 

SY2 

A 

11 

MJ 

0 
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12 

TP 
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13 

TP 
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14 

TP 
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15 

QT 
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16 

ST 
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17 

TP 

CG24 
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TP 

CA4 

PCS 

22 

MJ 
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Ss. Mode 
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2 
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WA 

3 
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4 
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5 

TP 
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6 

RJ 

0P2 

7 

RJ 

SY 

10 

EJ 

CA30 

11 

MJ 

0 

12 

TP 
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13 

RJ 

DP2 

14 

RJ 
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15 
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0 

16 

MJ 
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Delete an 
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YV 
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2 
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EK16 

3 

TP 
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DP3 

4 

RJ 
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MJ 
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TP 
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4 
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TP 
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14 

RJ 

FV 

FV1 

Delete Ss. 
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YV 
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EJ 

CA31 

NW 

65xxx -> NW 

5 
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EMU 

DP3 

5 
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V 
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TP 
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RJ 
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6 

RJ 
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10 

MJ 
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12 
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15 
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0 

RJ 

RH 
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1 
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2 
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3 
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4 
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5 

TP 
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7 
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Q 
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12 
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13 
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14 

AT 
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15 
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17 
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Equation Translation 
Error Prints 
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Error Numbers 


EF 

EG 

EH 

ET 

EJ 

EK 

EL 

EM 

EN 

EP 

ER 

EX 

GA 

GB 

GC 

GD 
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GF 
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GI 

GJ 

GK 
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GP 

GQ 

FQ 

GV 

GY 

GZ 
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1 0 
uii |U 

El3 f El4 
E15 f E16 
E17.E18 
E19 f E20 
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E33,E34 
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Error Prints for Equation Translation 
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1 

31 
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66634 

F 

D 

N 

C 

T 

I 

2 

51 

50016 
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N 

A 

S 

Y 

M 

3 

25 
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B 

0 

L 

t 

A 

77 

4 

0 

0 

0 
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A 

f 

A 

( 

S 

0 

6 

25 
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45132 

B 

A 

P 

R 
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7 

54 
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R 

A 

M 

A 

D 

D 

10 
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M 

M 

Y 

) 
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I 

11 

50 

01010 
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N 

A 

A 

A 

A 

A 
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I 

X 

E 

D 
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N 
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01 
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A 
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Q 

D 

A 

T 
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R 

I 
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M 

23 

25 
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B 
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» 

A 

77 

24 

0 

0 

0 
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A 

t 

A 

( 

S 

U 

26 

25 
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B 

A 

A 

A 
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27 
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10101 

A 

A 

A 

A 

A 

A 
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01 

52545 
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A 
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R 

0 
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R 

31 

24 
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A 

M 

A 

D 

U 

M 
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47 

73430 
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M 

Y 

) 
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I 

N 

33 
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A 

F 

I 

X 

E 

D 

34 

01 
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A 

P 

0 

I 

N 

T 

35 
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30536 
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A 

E 

Q 

U 

A 

T 

36 

34 
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I 

0 

N 

• 
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E3 
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1A 

EG 
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1 

31 
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F 

L 

0 

A 

T 

I 

2 

50 
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M 

it 

G 

A 

D 

J. 

r\ 

V/ 
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Pseudo Operation Heading Translator 

This routine provides the necessary input and output ref¬ 
erences required by the sentences of the sub program, and also furnishes 
to the Pseuio Operation Heading generator and to the Exit sentence the 
necessary linkage so that control is transferred properly during the Object 
Program. 

The input and output references are set by building the DP List con¬ 
taining the dummy variables and their associated dummy call words. These 
dummy variables as used by the sentences of the sub program are assigned call 
words as follows: 

76x— subscripted variable (x = number of subscripts). 

63- single valued fixed or floating variable. 

61™ functions. 

These call words represent the addresses from which input values or 
the locations of output values are to be obtained during the Object Program. 
The addresses represented by these call words lie in the Sub Program Input 
List, a part of the Termination Buffer. 

The 22— type call word of the next sentence of the sub program will 
be used by the Heading Sentence generator to form the jump instruction which, 
during running, transfers control into the sub program after being referenc¬ 
ed by the COMPUTE sentence. 

A check is also made by this routine to insure that any previous sub 
programs have EXIT sentences. 
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Save Psuedo Op. call 
word in TS4 (for 
exit sentence) 


Set counter 2 
to number of 
operands 




sO 


ro 


to 
















































T7?A 



















925 



















ro 

o 








927 




Determine 22_ 

call word of first 
sentence follow¬ 
ing sub program 
heading 


Insert this call 
word at next 
position in JN 
List 


Increase JN List 
count by one 
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List of Error Printouts 


Program 

Entrance 

ZA1 

ZbO 

and > 

ZGl J 
ZC1 
ZF1 
ZHl 

ZI1 

ZJ1 

ZKl 

ZL1 

ZMl 

ZN1 

ZOl 

XN32 

XN3 


Print-Out "Sentence_(SUB)” precedes all of these. 

No final closing parenthesis. 

The number of open parentheses is not equal to the number 
of close parentheses. 

Machine or internal error. 

Failed to exit. Probably no space period symbol. 
Parenthetical expression not allowed for the functional 
variable in the Pseudo Op Heading statement. 

Fixed point operands do not begin with legal characters 
i.e. (I, J, K, L or M) in the Pseudo Op Heading. 

Floating point operands in the Pseudo Op Heading begin 
with illegal characters, i.e. (I, J, K, L or M). 

No closing parenthesis or too many subscripts. 

Duplicated symbols are not allowed in Pseudo Op Heading. 
Erroneous subscript found. 

At least one subscript missing on subscripted variable. 

The rest of this sentence was not checked. 

No exit in preceding Pseudo Operation. 

Constants illegal in Pseudo Op Heading. 



Regions for Pseudo Operation Heading Translator 


RE 

PU4400 

RE 

PV4471 

RE 

PX4630 

RE 

PY4667 

RE 

PZ4714 

RE 

PW4741 

RE 

PE4747 

RE 

DD4761 

RE 

JL5006 

RE 

ZA5023 

RE 

ZB5036 

RE 

ZC5062 

RE 

ZF5075 

RE 

ZG5113 

RE 

ZH5122 

RE 

ZI5153 

RE 

ZJ5204 

RE 

ZK5234 

RE 

ZL5252 

RE 

ZM5273 

RE 

ZN5306 

RE 

Z05327 

RE 

XN5355 


There is one conflict between the string-out subroutine regions 
and the above regions (each uses region ZO). However, if the above re¬ 
gions are read in first and the string-out subroutine regions second, 
the Pseudo-Op Heading tape will assemble properly. 
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Master Control Region for Pseudo-OP Heading Translator. 


(§) 

© 

© 

© 





IA 

PD 



0 

MJ 

0 

PW 


1 

RP 

10132 

XN17 \ 

Zeroize 

2 

TP 

PD44 

DP J 

Region DP (90 slots) 

3 

RJ 

JL 

JLl 

Reference routine for building Pseudo 
OP 2nd lines. 

4 

TP 

TA4 

Q 

(TA4) = no. of operands 

5 

TV 

TA4 

TS4 

Send 40- CW to TS4 

6 

QT 

PD45 

PU46 

Mask off no. of operands and set CTR2 

7 

RJ 

SY 

SY1 

10 

EJ 

PD47 

PU12 

Test ”(’* 

11 

MJ 

0 

XN 

Jump to test ")" 

12 

RA 

PD50 

PU51 

Parentheses Counter + 1—>Paren. Ctr. 

13 

MJ 

0 

PU7 


14 

EJ 

PU52 

PU7 

Test 

15 

EJ 

PD53 

PU17 

Test "A. H 

16 

MJ 

0 

PU26 


17 

TP 

SZ2 

A 1 


20 

EJ 

PD54 

PD22 ) 

Test previous symbol for ")**. 

21 

MJ 

0 

ZAl 

Error.* No close parenthesis 

22 

RS 

PD50 

PD51 

Parenthesis Counter - 1—>Paren. Ctr. 

23 

ZJ 

ZB1 

PU 

At* 0 ; Indicates opening and closing 
parens not equal. 

24 

MJ 

0 

PD65 


25 

ZJ 

ZC1 

PD 


26 

TP 

PD55 

A ? 

Test CTR1 (assigning CW 

27 

TJ 

PD63 

PD65 j 

sequence numbers) ^ (77) R 

Error.* y 

30 

MJ 

0 

ZCl 

31 

TP 

TA5 

Q 1 

Mask and save format digit 

32 

QT 

PD56 

PD57J 

1, 2, 3, or 4 

33 

RA 

PU31 

PD70 

Modifies address for picking up next 
operand. 

34 

TP 

PD57 

A 

Format digit 1, 2, 3 or 4—>A 

35 

EJ 

PD51 

PZl 

Test for *1* 

36 

EJ 

PU60 

PY1 

Test for *2* 

37 

EJ 

PU61 

PXl 

Test for *3* (Function) 

40 

EJ 

P062 

PV1 

Test for *4* (subscripted variable) 

41 

MJ 

0 

ZCl 

Error.* Format digit not 1, 2, 3 or 4. 

42 

IJ 

PU46 

PD7 

Initial no. operands -1—>PD46 

43 

MJ 

0 

ZFl 

Error* Failed to exit. 

44 

0 

0 

0 


45 

0 

0 

77 

Mask 

46 

0 

0 

0 


47 

17 

77777 

77777 

( 

50 

0 

0 

0 


51 

0 

0 

1 


52 

21 

77777 

77777 

f 

53 

01 

22777 

77777 

A. 

54 

43 

77777 

77777 

) 
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Master Control Region for Pseudo-OP Heading Translator (continued) 


55 

0 

0 

0 


56 

0 

0 

7 

Mask 

57 

0 

0 

0 


60 

0 

0 

2 


61 

0 

0 

3 


62 

0 

0 

4 


63 

0 

0 

100 


64 

77 

77777 

77776 

*"1 

65 

TP 

5Y7 

Q \ 

Test first character for letter. 

66 

QJ 

PD31 

XN3 J 


67 

MJ 

0 

PU25 


70 

0 

1 

0 



CA 

PU71 
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Sub Region for Subscripted Variable 


IA 

MJ 

PV 

0 

PU42 n 

Exit 

TP 

PD31 

A 


RS 

A 

PV110 

Mask ’op* portion of 

TO 

A 

PV4 

> format word and save 

TP 

[0] 

Q 

in Temp. 2 = PV112 

QT 

PV111 

PV112 > 


RA 

PU64 

PVll3s 

CTR + 1—>CTO) 

RA 

PV10 

PD64 

(set up proper address) 

TP 

SY2 

D)P] 

> Insert XS-3 symbol in DP List 

TP 

PV114 

PV10 

Reset PV10) 

RJ 

DU 

DU1 ) 

(Test duplication of symbol) 

TP 

PV112 

A 

Previously saved 'op*—>A 

LT 

14 

A 

Shift op to v of Ap 

Ar + 76 - 00—>/L K 

76*N*00 + CTO 1 —>Temp. 5 = PVll6 

RA 

A 

PV115 

AT 

PD55 

PV116 

TP 

PV112 

A 

Previously saved *op*—>A 

LT 

6 

PV117 

Shift *op* to A 0-5 

MJ 

0 

PV130 

Jump out for correction 

AT 

PD55 

PD55 ) 

t Setting up index which 

TP 

PV120 

PV121 

? determines when to begin exit 

RA 

PV121 

PV117J 

I 

RA 

PD64 

PV113 ‘ 

) 

RA 

PV27 

PD64 1 

Insert *76* N— CW in DP 

TP 

PV116 

[DP] 


TP 

PV122 

PV27 ^ 


RJ 

SY 

SYl 


EJ 

PV123 

PV31 

Test t 

EJ 

PV124 

PV35 

Test *)* 

MJ 

0 

PV102 

Jump to correction(T) 

RA 

PV125 

PV113 

Parenthesis counter +1—>Paren. Ctr 

MJ 

0 

PV31 


RA 

PU64 

PV113> 


RA 

PV41 

PU64 


TP 

SY2 

[DP] 

> Insert XS-3 symbol in DP list 

TP 

PV114 

PV41 

RJ 

DD 

DU1 > 


TP 

PV126 

A 

’63000 * —>A 

RA 

A 

PU55 

’63000’ + CTO1—>A 

TP 

A 

PV116 

Save CW in Temp. 5 = PV116 

RA 

PD55 

PV113 

CTO1 + 1 —> CTR1 

RA 

PD64 

PV113 

CTR + 1 —>CTR 

RA 

PV52 

PU64 


TP 

PV116 

[DP] 

Send CW to DP List 

TP 

PV122 

PV52 


RJ 

SY 

SYl 


EJ 

PV123 

PV54 

Test * t * _ 

EJ 

PV127 

PV104 

Jump to correctionGO 

MJ 

0 

PV133 

Jump to colfection^n 

RA 

PV61 

PU64 
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Sub Region for Subscripted Variable (continued) 




61 

TP 

SY2 

[DP] 


62 

TP 

PV114 

PV61 

Insert XS-3 symbol in DP list 

63 

RJ 

DU 

DU1 

64 

TP 

PV126 

A 

*63000* —>A 

65 

AT 

PU55 

PV116 

*63000* + CTR1— 

66 

RA 

PU55 

PV113 

CTR1+1 —» CTR1 

67 

RA 

PU64 

PV113 

CTR+1—>CTR 

70 

RA 

PV71 

PU64 ) 


71 

TP 

PV116 

[DP] } 

Send CW to DP List 

72 

TP 

PV122 

PV71 J 


73 

U 

PV121 

PV54 


74 

RJ 

SY 

SYl 


75 

EJ 

PV127 

PV77 

Test *)’ 

76 

MJ 

0 

ZK1 

Error. No closing parenthesis 

77 

RS 

PV125 

PV113 

Parenthesis counter -1—>Paren. Ctr 

100 

ZJ 

ZGl 

PV 

Test for same no. of open and close 
parens. 

101 

0 

0 

0 

(T)Test for subscript 

102 

TP 

SY10 

Q \ 

103 

QJ 

PV37 

ZM1J 

(5)If op > 01 then wrong 

Exit was used and at least one 

104 

TP 

PV107 

A \ 

105 

TJ 

PV112 

ZN1 \ 

106 

MJ 

0 

PV77J 

subscript will be missing 

107 

01 

0 

0 

from DP List 

110 

0 

1 

0 


111 

77 

0 

0 

Mask 

112 

0 

0 

0 

Temp. 2 

113 

0 

0 

1 


114 

TP 

SY2 

DP 

Presetter for XS-3—>DP 

115 

0 

0 

76000 

CW 

116 

0 

0 

0 

Temp. 5 

117 

o 

o 

o 

Tem n . 3 

120 

77 

77777 

77775 

-2^. 

121 

0 

0 

0 

Index 

122 

TP 

PV116 

DP 

Presetter for CW >DP 

123 

21 

77777 

77777 

« 

124 

17 

77777 

77777 

( 

125 

0 

0 

0 

Parenthesis Counter 

126 

0 

0 

63000 

CW 

127 

43 

77777 

77777 

) 

130 

TP 

PV117 

A ] 

! 

131 

RA 

A 

pvn3; 

> Setting up an index for 

132 

MJ 

0 

PV22 

I the no. of passes thru last loop 

133 

TP 

SYlO 


_ Test for subscript 

134 

QJ 

PV135 

ZM1 | 

1 © 

135 

RA 

PU64 

PV113 1 

| I, J, K, L or M 

136 

MJ 

0 

PV60 J 


CA 

PV137 
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Sub Region for Filing Functions in DP 


13 


0 

IA 

MJ 

PX 

0 

PU42 


1 

RA 

P064 

PX27 

Increase CTR by 1 

2 

RA 

PX3 

PU64 > ) 

3 

TP 

SY2 

[DP] j> 

Send XS-3 symbol DP 

4 

TP 

PX32 

PX3 J 

Preset PX3 

5 

RJ 

DU 

DU1 


6 

RA 

P064 

PX27 

Increase CTR by 1 

7 

TP 

PX36 

A 

C W—>A 

10 

AT 

PU55 

PX35 

C W to Temp.(6)after being sequenced 

11 

RA 

PX12 

PU641 

12 

TP 

PX35 

[DP] \ 

Temp.(6)—>DP 

Preset PX12 

13 

TP 

PX33 

PX12 J 

14 

RA 

P055 

P060 

CTR 1+2—> CIR1 —> 

15 

TP 

P031 

A 

l 

16 

RS 

A 

PX30 

> Set up address to obtain 

17 

TO 

A 

PX22 

J correct format digit 

20 

RA 

P064 

PX27 

CTR+1 —> CTR 

21 

RA 

PX22 

P064 ] 


22 

TP 

[30000] 

[DP] 1 

L Send format digit(l t 2, 3 or 4) to DP 

23 

TP 

PX34 

PX22 J 

List 

Preset PX22 

24 

RJ 

SY 

SY1 


25 

EJ 

PX31 

ZH1 

Test *(* 

26 

MJ 

0 

PX 


27 

0 

0 

1 


30 

0 

1 

0 


31 

17 

77777 

77777 

N ( 

32 

TP 

SY2 

DP 

j Preset PX3 

33 

TP 

PX35 

DP 

y Preset PX12 

34 

TP 

30000 

DP 

J Preset PX22 

35 

0 

0 

0 

Temp.(6) 

36 

0 

0 

61000 


CA 

PX37 
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Sub Region for FIXED POINT OPERAND 



IA 

PY 



0 

MJ 

0 

fu42 


1 

TP 

SY10 

Q 1 

Testing 

2 

QJ 

PY3 

ZI1 i 

for I t J, K t L or M 

3 

RA 

PD64 

PY22 

CTR+1 —» CTR 

4 

RA 

PY5 

PU64 


5 

TP 

SY2 

[DP] 

Insert XS-3 symbol in DP 

6 

TP 

PY23 

PY5 

Preset PY5 

7 

RJ 

DO 

DCl 


10 

TD 

XI. 

PY21 

A 

CW — >A 

11 

AT 

P055 

PY20 

Temp.(7) CW plus sequence no 

12 

RA 

P055 

PY22 

CTR1+1—> CTRl 

13 

RA 

P064 

PY22 

CTR+1 —> CTR 

14 

RA 

PY15 

P064 


15 

TP 

PY20 

LDP] 

Insert 63-—type call word in 

16 

TP 

PY24 

PY15 

Preset PY15 

17 

MJ 

0 

PY 

Temp. ® 

20 

0 

0 

0 

21 

0 

0 

63000 

CW for FIXED POINT CONSTANT 

22 

0 

0 

1 


23 

TP 

SY2 

DP 

Presetter PY5 

24 

TP 

PY20 

DP 

Presetter PY15 


CA 

PY25 
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l t^corot-<o^JO s cn>ti>cotot-'C“40 s oi > ti.cofo^ 


Sub Region for FLOATING POINT OPERAND 


IA 

PZ 



MJ 

0 

PD42 


TP 

SYlO 

Q X 

Testing 

QJ 

ZJ1 

PZ3 J 

for I, J, K, L or M 

RA 

PU64 

PZ22 

CTR+1—> CTR 

RA 

PZ5 

P064 


TP 

SY2 

[DP] 

Insert XS-3 symbol 

TP 

PZ23 

PZ5 

Preset PZ5 

RJ 

DO 

DOl 


TP 

PZ21 

A 

Temp. (5) - CW plus sequence 

AT 

P055 

PZ20 

RA 

P055 

PZ22 

CTR 1+1—> CTR1 

RA 

PU64 

PZ22 

CTR+1—> CTR 

RA 

PZ15 

P064 


TP 

PZ20 

[DP] 

Insert 63—- type call word 

TP 

PZ24 

PZ15 

Preset PZ15 

MJ 

0 

PZ 

Temp.(8) 

0 

0 

0 

0 

0 

63000 

CW for FLOATING POINT 

0 

0 

1 


TP 

SY2 

DP 


TP 

CA 

PZ20 

PZ25 

DP 




IA 

PW 


0 

TP 

PW4 

P046 

1 

TP 

PW4 

PD55 

2 

TP 

PW5 

P064 

3 

MJ 

0 

PEI 

4 

0 

0 

0 

5 

77 

77777 

77776 


CA 

PW6 



CTR21 

CTR1 > Reset counters 
CTR J 
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IA 

PE 



o 

MJ 

o 

CT 


1 

TP 

TA4 

WL3 

Pseudo Op CW —WL3 

2 

RA 

PE10 

VB4 

22000 + VB4 = CW of 1st sentence 
after heading 

3 

TP 

A 

WL4 

CW—> WL4 

4 

RA 

WL 

PEll 

Word counter + 1—>Word ctr. 

5 

RJ 

SS 

SSI 

Send string out to tape 

6 

RS 

VB4 

PEll 

7 

MJ 

0 

PE 


10 

0 

0 

22000 


11 

0 

0 

1 



CA 

PEl2 





TA 

ZO 





0 

MJ 

0 

PO 




1 

MJ 

0 

Z02 




2 

TP 

Z025 

DP3 




3 

RJ 

0P2 

DP 




4 

MJ 

0 

ZO 




5 

01 

01010 

10101 ^ 




6 

01 

01010 

10101 




7 

01 

01010 

10101 




10 

01 

01010 

10101 




11 

01 

01010 

10101 , 

r Causes carriage return 

12 

01 

01010 

10101 

| before print out 

13 

01 

01010 

10101 




14 

01 

01010 

imm 




15 

01 

01010 

10101 J 




16 

66 

33300 

15430 

T 

H 

E A R E 

17 

65 

66015 

13101 

S 

T 

A 0 F A 

20 

66 

33346 

50165 

T 

H 

ISAS 

21 

30 

50663 

05026 

E 

N 

T E N C 

22 

30 

01712 

46501 

E 

A 

W A S A 

23 

50 

51660 

12633 

N 

0 

T A C H 

24 

30 

26453 

02722 

E 

C 

K E D . 

25 

40 

Z05 

20 





CA 

Z026 







Test Duplication of Symbol 



IA 

DO 


0 

MJ 

0 

[30000] 

1 

RA 

D020 

P064 

2 

TP 

[DP] 

A 

3 

EJ 

SY2 

DU 5 

4 

MJ 

0 

D015 

5 

TP 

DC24 

A 

6 

TJ 

D020 

D012 

7 

TP 

D023 

D02 | 

10 

TP 

D022 

D020> 

11 

MJ 

0 

DO J 

12 

TP 

DD23 

DU2 ) 

13 

TP 

DU 2 2 

D020 } 

14 

MJ 

0 

ZL1 J 

15 

RA 

D02 

D021 

16 

U 

D020 

DU 2 

17 

MJ 

0 

D07 

20 

77 

77777 

77776 

21 

0 

1 

0 

22 

77 

77777 

77776 

23 

TP 

DP 

A 

24 

0 

0 

0 


CA 

D025 



Index + Ctr. = CTR. -1 

0 —>A 

Index > 0 indicates error 
Exit routine 

Error routine 

Modifty DP address 

Jump to Exit routine 
Index 

Presetter for Index 



Routine to Make Op List JN 

of 2nd Lines of Pseudo Op’s 


IA 

JL 



0 

MJ 

0 

30000 

Exit 

1 

TP 

JL12 

Q 

Mask to Q 

2 

QT 

JN 

A 

JN = 0 20000 0 initially 

3 

LQ 

A 

25 

Shift to V position number of 
pseudo ops. 

4 

AT 

JL14 

A 1 

Set-up to get proper loading 

5 

TV 

A 

JL7 J 

position for next call word in list. 

6 

SP 

VB4 

17 l 

Securing and loading call 

7 

AT 

JL13 

[30000] j 

word in list. 

10 

RA 

JN 

PD70 

Increasing list length count 

11 

MJ 

0 

JL 

Exit 

12 

0 

07777 

0 

Mask 

13 

0 

22000 

0 

Base call word of pseudo ops 

14 

0 

0 

JN1 

Base address of 1st call word 


CA 

JL15 


in list. 
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Error Print-Outs 



IA 

ZA 









0 

MJ 

0 

PD 








1 

RJ 

WA 

WAl 

Prints: 

SENTENCE _ 

_(SDB) 

2 

TP 

ZA12 

DP3 \ 

Gives print-out indicated 

3 

RJ 

UP2 

DP J 

by parameter. 



4 

MJ 

0 

ZA 








5 

50 

51013 

13450 

N 

0 

A 

F 

I 

N 


6 

24 

46012 

64651 

A 

L 

A 

C 

L 

0 


rt 

i 

65 

34503 

20152 

S 

T 

X 

1VT 

IN 

r* 

\J 

A 

P 


10 

24 

54305 

06633 

A 

R 

E 

N 

T 

H 


11 

30 

65346 

52277 

E 

S 

I 

S 

• 

A 


12 

40 

ZA5 

5 









CA 

ZA13 











IA 

ZB 








0 

MJ 

0 

PD 







1 

RJ 

WA 

WAl 







2 

TP 

ZB23 

DP3 







3 

RJ 

DP2 

DP 







4 

MJ 

0 

ZB 







5 

66 

33300 

15067 

T 

H 

E 

A 

N 

D 

6 

47 

25305 

40151 

M 

B 

E 

R 

A 

0 

7 

31 

01515 

23050 

F 

A 

0 

P 

E 

N 

10 

01 

52245 

43050 

A 

P 

A 

R 

E 

N 

11 

66 

33306 

53065 

T 

H 

E 

S 

E 

S 

12 

01 

34650 

15051 

A 

I 

S 

A 

N 

0 

13 

66 

01305 

36Y24 

X 

A 

E 

Q 

D 

A 

14 

46 

01665 

10166 

L 

A 

T 

0 

A 

T 

15 

33 

30010 

10101 

H 

E 

A 

A 

A 

A 

16 

01 

01506 

74725 

A 

A 

N 

D 

M 

B 

17 

30 

54015 

13101 

E 

R 

A 

0 

F 

A 

20 

26 

46516 

53001 

C 

L 

0 

S 

E 

A 

21 

52 

24543 

05066 

P 

A 

R 

E 

N 

T 

22 

33 

30653 

06522 

H 

E 

S 

E 

S 

• 

23 

40 

ZB5 

16 








CA 

ZB24 
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IA ZC 


0 

MJ 

0 

PD 







1 

RJ 

WA 

WA1 







2 

TP 

ZC12 

DP 3 







3 

RJ 

0P2 

DP 







4 

MJ 

0 

ZC 







5 

47 

24263 

33450 

M 

A 

C 

H 

I 

N 

6 

30 

01515 

40134 

E 

A 

0 

R 

A 

I 

7 

50 

66305 

45024 

N 

T 

E 

R 

N 

A 

10 

46 

01305 

45451 

L 

A 

E 

R 

R 

0 

11 

54 

22777 

77777 

R 

* 

77 

77 77 

77 

12 

40 

ZC5 

5 








CA ZC13 



IA 

ZF 








0 

MJ 

0 

PD 







1 

RJ 

WA 

WA1 







2 

TP 

ZF15 

DP 3 







3 

RJ 

DP2 

DP 







4 

MJ 

0 

ZF 







5 

31 

24344 

63027 

F 

A 

I 

L 

E 

D 

6 

01 

66510 

13072 

A 

T 

0 

A 

E 

X 

7 

34 

66220 

15254 

I 

T 

• 

A 

P 

R 

10 

51 

25242 

54673 

0 

B 

A 

B 

L 

Y 

11 

01 

50510 

16552 

A 

N 

0 

A 

S 

P 

12 

24 

26300 

15230 

A 

C 

E 

A 

P 

E 

13 

54 

34512 

60165 

R 

I 

0 

D 

A 

S 

14 

73 

47255 

14622 

Y 

M 

B 

0 

L 

• 

15 

40 

ZF5 

10 








CA 

ZF16 









940 




IA 

ZG 


0 

MJ 

0 

Z01 

1 

RJ 

WA 

WA1 

2 

TP 

ZB23 

DPS 

3 

RJ 

UP2 

DP 

4 

TP 

ZG6 

PV102 

5 

MJ 

0 

ZG 

6 

0 

0 

0 


CA 

ZG7 




IA 

ZH 








0 

MJ 

0 

ZOi 







1 

RJ 

WA 

WA1 







2 

TP 

ZH30 
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IV. GENERATION PHASE 




IV. GENERATION PHASE 


1. Generation Setup and Drum Loader 

After the initial print-out: Pass II. Generation of Computer Code, 
this routine transfers from tape to core to drum the two 27-block sections of 
the Subroutine Generators. Next, it transfers from tape to core the 6 blocks 
of Generation Subroutines. 


RQ routine is then referenced to set up some block and line counters, put 
the proper parameter for 5 or 7 Uniservos into Op Control routine, and put two 
title blocks on both tape 5 holding Op File I and the tape that is to hold the 
generated coding. This tape will be either on Uniservo 4 or 7, depending on 
whether 5 or 7 Uniservos are used. In addition, on the 22nd line of the title 
block for the generated coding, the RQ routine puts the contents of 13, which is 
a count of the number of blocks of the corrected problem on tape 5. 


The tape holding the string-out input, either on Uniservo 3 or 6, is now 
moved forward one block to bypass the title. Then an exit jump is made to the 
beginning address of CG, the Control Generation subroutine. 


Also included in the same block as the Generation Set-Up is a Drum Loader 
routine which can be used to help update or correct the UNICODE Master Tape. 
First a flex or bioctal copy of a revised Generator is loaded into the core. A 
look at the annotated coding of this Drum Loader will show the numerical PAK 
setting to the left of a section of coding labeled for the specific Generator. 

A start at this address will transfer the Generator to its proper place in 
the drum. In this connection, the separate write-up on the System Tape Package 
should be consulted to ensure that the other necessary steps are taken to 
update the Master Tape correctly. 
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Generation Set-Up Routines - Flow Charts 
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Generation Set-Up Routines- Flow Charts 

RQ Routine To Set Up Op Control Routines and Write Title Blocks For 
Op File I and Generated Routines on Tapes 
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number of blocks 

-■> 

title block for 

— 

second blockette 

- > 

corrected prob- 


generation tape 




lem, to 2nd line 






of 2nd blockette 


Fill remainder 


of blocks with 


Z - lines 




















Generation Setup and Drum Loader Regions 
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RE 
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Generation Subroutine regions are also needed to assemble this tape. 
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Generation Setup and Drum Loader 
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Gen.Routines 
Setup 
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Routine used to load Generators from Core to Drum (used only in assembling 
initially the UNICODE generators; operated by console manipulation). A changed 
generator is first read into the core. Then a start with PAK set to the num¬ 
bered address shown at left will transfer the generator to its place in the drum. 
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2. GENERATION SUBROUTINES 




2. Generation Subroutine Regions 
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RE 
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RE 
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string-out) 
Tape handler 


4* n 1 » 1 A 4* ! 1 ttlU n-v 

UU iUUHjfll.C W11 c W 1 


*7 ~ ~ ~_- ( _4- ' - 

I 3C1VU5 VSCL in 


Line-number processing routine 


Machine Error Routine 


Sentence number print-out during an error print-out 


Op routine to write output on tape and RG routine 
used as adjunct to VARY 


Call word routine 

Routine to get call word of referenced line number 
from list 

Routine to put call word in referenced line-number list 
Illegal line jump check routine 
Library list routine 

Control generation routine 

Excess three to Flex code 
Op File buffer 

Input buffer (250« lines maximum) 
o 

Region where any generator operates 
Generated routines output buffer 

Library List Threshold (keeps max. of library routines 
referenced at 99) 

Eq. 1, Generation 
Eq. 2 f Redundancy 
Eq. 3, Generator 
If 

Jump 

List 

Print 

Read 

Resume 

Start 

Stop 

Type 

Vary 
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RE 

DV502 

End of tape 



RE 

DW34 

Exit 



1 RE 

DX24 

Pseudo-Op Heading 



RE 

DY551 

Compute 



RE 

DZ53 

Dimension 



RE 

ZZ7230 \ 




RE 

DA7230j 

Generation Set-Up Block 



RE 

ZA77000 

Region of UNICODE Service Routines 



RE 

FC40001 

Excess Three to Flex-Code List 



RE 

CB40101 

Combination List 



RE 

DL40102 

Dimension List 



RE 

CL46101 

Constant List 



RE 

VF47101 

Vary File List 



RE 

IZ47246 

Referenced Line-number List 



RE 

JN47722 

List of call words of 2nd-’line numbers of 

sub-programs 


RE 

RW50023 

Rewind List of call words of tape numbers 

referenced 


RE 

LN50046 

Library List of call words of library routines refer- 




enced 



're 

CJ50212 

Start 



RE 

EA50242 

Jump 



RE 

EB50275 

If 



RE 

EC51260 

Print 


Initial 

RE 

ED51367 

Compute 


addresses 

RE 

EF52140 

Vary 


of gener¬ 

RE 

EY53126 

Resume 


ators - 

RE 

EH53322 

Exit 


stored on 

RE 

E153356 

Type 


drum 

RE 

EJ54136 

List 



RE 

EK54617 

Read 



RE 

EL55247 

Stop 



RE 

EM55674 

Dimension 



RE 

EN55747 

Pseudo-Op Heading 



RE 

E055773 

End of Tape 



RE 

ET56475 

Equation l t Generation Sorting 



RE 

EU57307 

Equation 2 r Redundancy Check 



RE 

EV62113 

Equation 3, Generator 


These 

RE 

IG2675 

Routine to put Constant List on tape 5 


routines 

RE 

UG2713 

Routine to put Dimension List on tape 5 


are part 

RE 

EG2732 

Rewind tape routine 


of End of 

RE 

BE2750 

Gives generation termination print-out 


Tape and 

RE 

BU2774 

Sends excess-three symbol list to tape 5 


are refer¬ 





enced from 





Control 





Generation 






Unless otherwise stated in the coding, the above regions are sufficient for 
all the Generation Subroutines included in this section. 
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Control Generation Routine 


As with the Generation Set-Up Routine, the indicator TN is used to determine 
on which Uniservo the string-out input to generation has been written. It may 
either be on Uniservo 3 or 6 depending on whether 5 or 7 Uniservos have been 
used. 

The title block having been passed by, the first line of any block on this 
tape beginning a new sentence string-out contains the number of lines in the 
string-out. If this number is greater than 170 q, two blocks of input for that 
sentence are read into the input buffer. The buffer can only preserve a maximum 
of 250 q significant words. Any excess lines above 250g are later overlayed by 
the transfer of a generator into the core. Alarms-in the Translation or String- 
Out Phase have already given adequate protection against possible exceeding of 
this string-out buffer maximum so there is no further check made against this 
contingency in generation. 

The line number of the sentence being analyzed is compared with the numbers 
in the referenced line-number list IZ by means of routine HI and, if found, 
its call word added to the list as needed. 

The content of BK2, which holds the name of the sentence under analysis, is 
compared with a list of sentence titles to determine what type of sentence is 
being analyzed. Depending on which equality is found, a jump is made to a 
corresponding section of the routine which brings in the proper generator from 
the drum, makes a referencing return jump to it, and then jumps back to the 
beginning entry of Control Generation to get the next sentence input. The 
return jump to the generator causes the generation of the desired sentence 
coding, followed by the writing of it on tape and the storing of its Op File 
in a buffer for later writing on tape. 

If none of a list of 13 sentence types is recognized, a comparison is made 
to see if End of Tape instruction has been encountered. If yes, the End of Tape 
Generator is brought into the core from the drum. Control of the End of Tape 
generation is retained in the Control Generation from CG77-CG110 where a 
succession of return jumps does a variety of things explained more thoroughly 
in the write-up on the End of Tape Generator. The exit from this succession is 
a jump to ZA10, the address of an overall UNICODE control service routine in 
the drum. 
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If the End of Tape sentence is not recognized as suggested in the preceding 
paragraph, the call word of the sentence is checked to see if it is greater 
than 40000. If yes, the sentence is recognized as a Pseudo-Op Heading and the 
generator for this type is brought into the core. Before referencing this 
generator, the line number of the sentence is put in the proper place in the 
prelude of the routine which is to be generated. Following this extra remedial 
step, the generator is referenced similarly as with other generators. 

If the call word of the sentence proposed above is not greater than 
40000, the sentence is determined by this system of elimination to be the only 
remaining type not considered - namely, an equation. 

This type of sentence requires special handling which is explained at greater 
length in another write-up. Briefly an equation sorting routine is transferred 
from drum to core and then referenced by Control; next, an equation redundancy 
routine is transferred from drum to core and similarly referenced; finally, 
the last equation generator is brought into the core and referenced to complete 
the handling of the sentence. Termination is as usual by getting the next 
sentence input. 

The only final termination to generation lies in the recognition and 
handling of an End of Tape sentence. 

All generators or portions of generators are transferred to the core at the 
same starting address, 2512. This first line is an exit line, the entry line 
for the main referencing of a generator being the Reco equivalent of 2513. 

The generators are packed on the drum starting at 50212. Information con¬ 
cerning their assumed length on the drum and their initial addresses there is 
obtained by examination of the annotated copy of Generation Subroutine regions 
preceding the Reco coding of the Generation Phase. 
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Flow Chart for Control Generation Routine 




What type of 
sentence is being 
analyzed? 


© 00 © « 


/HI line-numbei 
reference-list 
\ check 
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Is sentence an End 
of Tape type? 


Bring in End of Tape 
generator to core 
from drum 


Transfer Op File and 
generation routine line 
to tape 


/Reference generator.\ 
Calculates 14 t closes \ 
out Op Files, gen* rtnes,/ 
\and puts lib* list 1 7 
\ on tape / 


Put Dimension 
List on tape 



Bring in Pseudo-Op 
Heading generator to 
core from drum 


Put line number into 
output line 


Referencing eq. no.\ 
1 (listing) generator 


Transfer eq. no. 2 
(redundancy) from 
drum to core 


Referencing eq. no. 
2 (redundancy) 


Transfer eq. no. 3 
(generator) from drum 
to core 



Put Constant 
List on tape 


Put Excess-three- 
symbol List on tape 


'Reference generator 


in core 


/Rewind tapes 3 and 4 \ 
'or tapes 6 and 7 and 
onove backward on tape 5 
\to begi nn ing of Op File/ 


Print-Out: END OF GEN¬ 
ERATION. To interrupt 
compilation set A not 
= 0. Start. 

Computer stop here 
must be followed by 
start 


Jump to ZA10, 
UNICODE control 
in drum to start 
set-up segmen- 
tation 


Is A = 0? 


Jump to entry 
to read in next 
block 

v. input / 


Rewind all tapes 
No ^ and computer 
stop 
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Flow Chart for Control Generation Routine (cont.) 
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CONTROL GENERATION ROUTINE 


Sentence 
is an 
equation 



IA 

CG 


0 

TP 

TN 

A 

1 

AT 

CH2 

GT3 ' 

2 

RJ 

GT2 

GT . 

3 

TP 

BK 

A 

4 

TJ 

CH 

CG10 / 

5 

TP 

TN 

A ] 

6 

AT 

CH3 

GT3 > 

7 

RJ 

GT2 

GT J 

10 

RJ 

HI 

HI1 

11 

TP 

BK2 

A 

12 

RP 

20015 

CG21 ' 

13 

EJ 

CH4 

CG14 

14 

SN 

Q 

0 

15 

SA 

CG34 

1 

16 

AT 

CG35 

A 

17 

TV 

A 

CG20 

20 

MJ 

0 

30000. 

21 

EJ 

CH21 

CG77 

22 

TP 

CHI 

A \ 

23 

TJ 

BK3 

CG75 J 

24 

RP 

DH30000 

CG26 ' 

25 

TP 

ET 

KB 

26 

RJ 

KB 

KB1 

27 

RP 

D130000 

CG31 ] 

30 

TP 

EU 

KB \ 

31 

RJ 

KB 

KB1 J 

32 

RP 

DJ30000 

CG41 \ 

33 

TP 

EV 

KB J 

34 

0 

0 

20015 

35 

0 

0 

CG41 

36 

0 

0 

0 

37 

0 

0 

0 J 

40 

TP 

BK1 

2531 

41 

RJ 

KB 

KB1 

42 

MJ 

0 

CG 

43 

RP 

DR30000 

CG41 1 

44 

TP 

CJ 

KB J 

45 

RP 

DM30000 

CG41 

46 

TP 

EA 

KB 

47 

RP 

DK30000 

CG41 1 

50 

TP 

EB 

KB J 

51 

RP 

DO30000 

CG41 1 

52 

TP 

EC 

KB J 


Bringing in 1st block (for any one sentence) 
from tape t0 bk * buffer in P ut re 9 ion 

Is input <C 171? 


Bringing in 2nd block for same sentence to 
input region from tape £ 3 

Check if line no. is in ref. list and, if so, 
giving it a call word 

Name of sentence to A 20014 13 12 

Determining if sentence is start, jump, if 
11 10 7 6 5 J 4 

print, computet vary, resume, exit, type, 

list, read, stop, or dimens, and going to 
proper transfer command accordingly. 


Is sentence an End of Tape? 

Is call word >40000? If so, it is a Pseudo-Op 
Heading 

Translation for equation 


Redundancy check for equation 
Transferring equation generator to core 


Unused words 

Putting line number into proper output line 
for Pseudo-Op Heading Routine to correct 
oversight in that routine 
Standard return jump to any generator 
Return to get next sentence 
Transfers Start generator from drum to core 
and then jumps to reference the generator 

Same with Jump 
Same with If 
Same with Print 


966 



53 RP 

54 TP 

55 RP 

56 TP 
5? RP 

60 TP 

61 RP 

62 TP 

63 RP 

64 TP 

65 RP 

66 TP 

67 RP 

70 TP 

71 RP 

72 TP 

73 RP 

74 TP 

75 RP 

76 TP 

77 RP 

100 TP 

101 TP 

102 RJ 

103 RJ 

104 RJ 

105 RJ 

106 RJ 

107 RJ 

110 RJ 

111 MJ 
CA 


DY30000 CG41 1 
ED KB J 

DU30000 C-G41 \ 
EF KB J 

DQ30000 CG41 1 
EY KB J 

DW30000 CG41 1 
EH KB J 

DT30000 CG41 \ 
El KB J 

DN30000 CG41 ' 
EJ KB , 

DP30000 CG41 ' 
EK KB / 

DS30000 CG41 ' 
EL KB / 

DZ30000 CG41 
EM KB / 

DX30000 CG40 " 
EN KB / 

DV30000 CGlOll 
EO KB ; 

CH25 0P1 1 
OP OP 2 J 

KB KB1 


UG UG1 

IG IGl 

BU BUI 

EG EGl 


BE BE1 

0 ZA10 

CGI 12 


Same with Compute 
Same with Vary 
Same with Resume 
Same with Exit 
Same with Type 
Same with List 
Same with Read 
Same with Stop 
Same with Dimension 

Brings in Pseudo-Op Heading Routine, jumps 

to CG40 to perform 1st function of routine 
before referencing the generator proper 
Brings in End of Tape generator 

Sends End of Tape data to tape 

Ref. generator! Calculates 14, closes out 
Op File, gen* rtnes, and puts list 1 on tape 
Puts Dimension List on tape 
Puts Constant List on tape 
Getting Excess-three symbol List 
Rewind 3 and 4 or 6 and 7 and move backward 
on 5 to beginning of Op File 
Termination of gen. print-out 
Exit to UNICODE control in drum 



IA 

CH 


0 

0 

0 

171 

1 

0 

0 

40000 

2 

50 

103 

BK 

3 

50 

103 

BK170 

4 

65 

66245 

46677 

5 

44 

67475 

27777 

6 

34 

31777 

77777 

7 

52 

54345 

6677 

10 

26 

51475 

26766 

11 

70 

24547 

37777 

12 

54 

30656 

74730 

13 

3a 

72346 

67777 

14 

66 

73523 

7777 

15 

46 

34656 

67777 


Parameter to read 1st 
string-out to input 
Parameter to read 2nd 
string-out to input 
START 
JUMP 
IF 

PRINT 

COMPUT 

VARY 

RESUME 

EXIT 

TYPE 

LIST 


block of any sentence 
block of same sentence 
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16 54 30242 77777 READ 

17 65 66515 27777 STOP 

20 27 34473 5065 DIMENS 

21 30 50277 77777 END 

23 0 0 3000 0 } 0p File Setup for End of Ta P e 

24 0 23000 0 Gen. setup for End of Tape 

25 0 CH24 CH22 Parameter for referencing op routine for 

End of Tape 

CA CH26 
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COMPUTER ERROR ROUTINE 


This routine is used when a compilation inconsistency occurs in the 
Generation Phase or later. It prints the following: 

ALARMAxX„AA CompilationAlnconsistencyA(Possible Computer Error). 

Recompile. 

where XX f a decimal number from 1 - 20, is determined by where the routine is 
entered. The regular entrances to the routine are BR1 to BR24. If the entrance 
is BR1, XX = 1; if the entrance is BRIO, XX = 8; if the entrance is BR24, XX = 
20; etc. The routine should not be entered with a.return ^ump. 

After the print-out, all tapes are rewound, and the computer stops with PAK 
set at the UNICODE service entrance of compilation. 

A rewind of all tapes with a computer stop is secured without a print-out 
by entering the routine at BQ6. 

Eleven alarms (entries BR1-BR13) have been assigned at different portions 
of the UNICODE coding. Explanations of these alarms follow: 
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COMPILER INCONSISTENCY OR COMPUTER ERROR ALARMS 


Print~out 

Entry 

Description 

ALARM 

1 

BR 1 

Subscripted variable symbol or call word is not 
found in the Dimension List. 

ALARM 

2 

BR 2 

Referenced sentence number is not found in the 
Reference (IZ) List. 

ALARM 

3 

BR 3 

Sentence number of last sentence in the range of 
a VARY is not found in the VARY File (VARY genera¬ 
tor). 

ALARM 

4 

BR 4 

Initial address of Operand List> Current address 
(Equation Generator). 

ALARM 

5 

BR 5 

Call word is not found in Directory I (Segmentation 
Phase). 

ALARM 

6 

BR 6 

Op File III and Directory 4 are inconsistent. 
Flagged call word is not found in Op File III 
(Allocation Phase). 

ALARM 

7 

BR 7 

Tape on Servo 2 positioned incorrectly. 

ALARM 

8 

BR 10 

Tape on Servo 3 (or 6) positioned incorrectly. 

ALARM 

9 

BR 11 

Tape on Servo 4 (or 7) positioned incorrectly. 

ALARM 

10 

BR 12 

Tape on Servo 5 positioned incorrectly. 

ALARM 

11 

BR 13 

Call word within routine is not found in Op File 

III (Processor). 
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Machine Error Print 



IA 

BR 



0 

0 

0 

BR1" 


1 

RJ 

BP 

BQ 


2 

RJ 

BP 

BQ 


3 

RJ 

BP 

BQ 


4 

RJ 

BP 

BQ 


5 

RJ 

BP 

BQ 


6 

RJ 

BP 

BQ 

t- 

Used entries 

7 

RJ 

BP 

BQ 


10 

RJ 

BP 

BQ 


11 

RJ 

BP 

BQ 


12 

RJ 

BP 

BQ 


13 

RJ 

BP 

BQ j 


14 

RJ 

BP 

BQ 1 


15 

RJ 

BP 

BQ 


16 

RJ 

BP 

BQ 


17 

RJ 

BP 

BQ 


20 

RJ 

BP 

BQ 

y 

Unused entries 

21 

RJ 

BP 

BQ 


22 

RJ 

BP 

BQ 


23 

RJ 

BP 

BQ 


24 

RJ 

BP 

BQ J 



CA 

BR25 




IA 

BQ 



0 

TP 

BP 

A 


Manipulation to get proper alarm number 

1 

SS 

BR 

17 ! 

into print-out coding 

2 

AT 

BP1 

BQ3 1 


3 

0 

30000 

30000j 


4 

TP 

BP26 

UP 3 \ 

Print-out 

5 

R J 

UP 2 

UP J 

6 

TP 

BQ17 

BQ20 

Entry for rewind and stop only. Sets index 





for 7 Uniservos 

7 

MJ 

10000 

BQ11 

Bypasses next instruction if MJ1 is set 

10 

TP 

BQ16 

BQ20 

Sets index of rewinding tapes for 5 Uni servos 

11 

TP 

BP44 

GT3 

"Rewind parameter” to tape handler 

12 

RJ 

GT2 

GT 

Rewind Uniservo via tape handler subroutine 

13 

RA 

GT3 

BP45 

Increasing tape handler parameter to rewind 





next tape 

14 

IJ 

BQ20 

BQ12 

Jump back to rewind remaining tapes 

15 

MS 

0 

ZA 

Exit and stop 

16 

0 

0 

4 

Index Constant (Used by Read Generator also) 

17 

0 

0 

6 

Index Constant for 7 Uniservos 

20 

0 

0 

0 

Holds index for rewinding Uniservos 


CA 

BQ21 
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0 

IA 

0 

BP 

0 

30000 

Set by entry ’’return jump" lines and used 

1 

TP 

BP1 

BP 30 

to compute alarm no. 

Dummy instruction used to make up instruction 

2 

04 

77220 

10126 

BQ3 

1. AAC 

3 

05 

77220 

10126 

2. AAC 

4 

06 

77220 

10126 

3. AAC 

5 

07 

77220 

10126 

4. AAC 

6 

10 

77220 

10126 

5. AAC 

7 

11 

77220 

10126 

6. AAC 

10 

12 

77220 

10126 

7. AAC 

11 

13 

77220 

10126 

8. AAC 

12 

14 

77220 

10126 

9. AAC 

13 

04 

03220 

10126 

10. A A C 

14 

04 

04220 

10126 

11.A A C 

15 

04 

05220 

10126 

12. A A C 

16 

04 

06220 

10126 

13. A A C 

17 

04 

07220 

10126 

14.A A C 

20 

04 

10220 

10126 

15.AA C 

21 

04 

11220 

10126 

16.A A C 

22 

04 

12220 

10126 

17.A A C 

23 

04 

13220 

10126 

18.A A C 

24 

04 

14220 

10126 

19.A A C 

25 

05 

03220 

10126 

20.A A C 

26 

0 

BP27 

15 

Parameter for print-out 

27 

24 

46245 

44701 

ALARM A 

30 

0 

0 

0 

Filled in by alarm number computation 

31 

51 

47523 

44624 

coding 

0 M P I L A 

32 

66 

34515 

00134 

T I 0 N A I 

33 

50 

26515 

06534 

N C 0 N S I 

34 

65 

66305 

02673 

S T E N C Y 

35 

01 

17525 

16565 

A ( P 0 S S 

36 

34 

25463 

00126 

I B L E C 

37 

51 

47526 

76630 

0 M P U T E 

40 

54 

01305 

45451 

R A E R R 0 

41 

54 

43220 

10154 

R).AAR 

42 

30 

26514 

75234 

E C 0 M P I 

43 

46 

30227 

77777 

L E . 

44 

10 

1 

0 

Rewind parameter to tape handler 

45 

0 

1 

0 

Constant (Used in Read Generator also) 


CA 

BP 46 





Flow Chart for WA, WB "Sentence_(_)" Print-Out - Generation 
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WA Subroutine to Print-Out "Sentence (Line Number) (Sentence Type)” 

without Error Referencing 



IA 

WA 



0 

MJ 

0 

30000 

Exit 

1 

MJ 

0 

WA2 

Start 

2 

TP 

WL1 

WB3 

Line number to print-out storage 

3 

4 

TP 

TP 

WL2 

A 

A 1 
WB5 

Sentence type to print-out storage and A 

5 

TP 

WB10 

WB6 J 


6 

EJ 

WB15 

WA15 

Is type EQUATN? 

7 

EJ 

WB11 

WA16 

Is type EQUATI? 

10 

EJ 

WB16 

WA20 

Is type COMPUT? 

11 

EJ 

WB17 

WA22 

Is type DIMENS? 

12 

13 

TP 

RJ 

WB 

UP 2 

UP 3 1 

UP J 

[■ Print-Out: Sentence ( ) 

14 

MJ 

0 

WA 


15 

16 

TP 

TP 

WB11 

WB12 

WB5 ] 
WB6 J 

■ Load into print-out storage 

17 

MJ 

0 

WA12 


20 

TP 

WB13 

WB6 

Load E77 77 into print-out storage 

21 

MJ 

0 

WA12 


22 

TP 

WB14 

WB6 

Load I0N77777 into print-out storage 

23 

MJ 

0 

WA12 



CA 

WA24 




IA 

WB 



0 

0 

WB1 

7 

Parameter for print-out 

1 

65 

30506 

63050 

S E N T E N 

2 

26 

30010 

17777 

C E A A 77 77 

3 

0 

0 

0 

Line number 

4 

01 

01011 

77777 

A A A (77 77 

5 

6 

0 

0 

0 

0 

0 1 
0 J 

1* Sentence name 

7 

43 

01017 

77777 

) A A77 77 77 

10 

77 

77777 

77777 

Filler 

11 

30 

53672 

46634 

EQUATI 

12 

51 

50777 

77777 

ON 77 77 

13 

14 

30 

34 

77777 

51507 

77777 

77777 

E 77 77 

ION 77 - 77 

15 

30 

53672 

46650 

EQUATN 

16 

26 

51475 

26766 

COMPUT 

17 

27 

34473 

05065 

DIMENS 


CA 

WB20 
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ROUTINE TO CONTROL TRANSFER OF OP FILE 1 ITEMS 
AND GENERATED SUBROUTINES TO TAPE 


To use Op Control Routine, a parameter word must be sent to OpJ prior to 
the entry instruction RJ Op Op^* u of Opl must contain the address of the 
first line of the generated subroutine; v, the address of the first line of the 
Op File 1 entry for the subroutine. The function of the routine is to transfer 
the generated subroutines and Op File 1 items to Uniservos. Z lines are added 
to fill up the last block of each generated subroutine. 170^ lines constitute 
a block. 

The actual writing on tape units is done by means of the generalized tape 
handler routine. The proper parameter words and entries to the tape handler 
routine are supplied in this Op Control Routine. 

The entry instruction of this routine is a return jump to RG subroutine 
which adds a call word to the Op File and alters the exit line of the generated 
routine if the sentence generated is the last sentence in a VARY loop. 

Op F ile 1 items are stored in a buffer region, NP, and accumulated until 
they fill a block, whence they are transferred to tape. Not taken care of in 
this routine is the final unfilled block of Op File 1 items. The coding 
necessary to fill this final Op File 1 block with Z*s and transfer it to tape 
is contained in the End of Tape instruction. 

The routine handles data stored either in the core or drum. If subroutine 
data is in the drum and it exceeds a block, it is transferred a block at a 
time into region GN in the core and thence onto tape. Subroutine data groups 
less than a block are transferred from drum to core in one set of repeat 
instructions. Op File 1 data groups in the drum are transferred to NP in the 
core just as if they were located in the core. 

Subroutine data groups in the core are handled somewhat faster. All 
complete blocks of a subroutine are handled as a single unit in their referral 
to the generalized tape handler. The last partial block of a subroutine is 
then transferred to region GN, where the proper number of Z lines is added to 
make a complete block*This region GN of 170g lines is needed only during Op 
Control operation. Between referrals to the routine it may be used for other 
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temporary purposes. In this respect it differs from region NP which is 
reserved exclusively for Op File 1 item storage during generation. 

At the beginning of generation instruction RJ RQ RQ1 causes the proper 
starting blocks to be written on tape, and sets up the proper parameters for 
the generalized tape handler, depending upon whether 5 or 7 Uniservos are used. 
On Uniservo for generated subroutines, GEN TAPE is written on the 21st and 22nd 
lines of the first block, SUBROUTINES on the 1st and 2nd lines of the 2nd 
block. On Uniservo for Op File items, FILE TAPE and OP FILE 1 are similarly 
put on the first two blocks, with Z - fillers on the balance of the block lines. 
The counts of blocks of subroutines and Op File 1 items include these starting 
blocks. 

The v portion of the first line of a subroutine program must contain the 
number of lines of prelude and routine. Similarly, the v portion of the first 
line of an Op File 1 item should contain the number of lines in the item. These 
figures are used in this routine. 

ES, the counter for the number of lines in NP, is used in the End of Tape 
routine to transfer the final Op File 1 block to tape. ES5, the number of 
blocks of Op File 1 written on tape, and ES6, the number of blocks of sub¬ 
routines written on tape, are also used in subsequent routines. 
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Flow Charts for Op Control Routines - Generation 
Op Routine To Store Op Files and Write Buffer Loads on Tape 
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Flow Charts For Op Control Routines - Generation - (Cont.) 
XP Routine To Write Generated Routines on Tape 
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Flow Charts for Op Control Routines - Cont. 

Routine to Insert Vary Call Word in Exit Line and in Op File I Item of Last Statement in a Vary Range 



< Is sentence calf 
word for a state¬ 
ment other than 
_vary? 



BOX 1 


No 


<D 


Set indicator 
equal zero 



Search Vary File' 
for current sen¬ 
tence number. 
Found? 



Reset box 1 to 
continue search 


Insert call word 
of vary from Vary 
File item into exit 
line of routine 



Indicator = 0? 


« 4 ® 


Decrease Op File 
I address in Op 
parameter by one 


Increase Op File 
I item length 
by one 


Move Op File I 
item back one 
location 


Set indicator 
not equal zero 




Insert vary call 
word as cross 
reference in Op 
File I item 


<D 
















OP CONTROL SUBROUTINE 


Routine to 
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MJ 
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Write Op 





Files on 

2 
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RG 
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TP 

0P1 

Q \ 


4 
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5 

SP 

0P1 
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6 

TU 

A 
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7 

TP 
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10 

QT 
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11 

TP 
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12 

RA 
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13 

TJ 

GP5 

0P44 


14 

TP 

GP5 
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15 

ST 

ES 
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16 

SA 

GP6 
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17 

TU 

A 

OP25 J 


20 

TP 

ES 

ES3 1 


21 

RA 

ES3 

RC1 \ 


22 

TV 

ES3 

0P26 J 


23 

SP 

ESll 

17 \ 


24 

TU 

A 

0P26 J 


25 

RP 

30000 

0P27 \ 


26 

TP 

30000 

30000J 


27 

TP 

RC 

GT3 \ 


30 

RJ 

GT2 

GT J 


31 

RA 

ES5 

GP10 


32 

TP 

GP7 

ES 


33 

RA 
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34 

RS 
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35 

TJ 

GP5 

0P44 


"36 

SP 

ESll 
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1 block of 

37 

TU 

A 
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40 

RP 
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41 

TP 
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NP 
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42 
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0 

0P27 
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45 

TP 
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46 
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ESI 

A 1 
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50 

TU 
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block to " 

51 

RA 
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52 

TV 
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Exit 

u = address of 1st line of generated sub- 
routine, v = address of 1st line of Op File 
VARY subroutine alters exit lines of routine 
being written on tape 

Address of 1st line of Op File—> ESll 
Number of lines in Op File -> ESI 


ES + ESI —> ES2 

Does ES2 exceed 170? 

Number of lines left to fill NP —> ES4 

Sets up u of repeat command Op 25 so that 
proper number of lines needed to fill NP 
are transferred to it 

Sets up v of Op 26 such that Op File items are 
transferred to correct part of NP 


Sets up u of Op 26 to correct beginning add. 
Transfers Op File items to fill up NP 

Writes completed NP onto a block of tape 

Count of Op File blocks 
Clears ES storage 

ES11 + ES4 —> ESll, the next address of Op 
File item to be transferred 
ESI - ES4 —> ESI, number of lines left in 
Op File item to be transferred 
Is 170 > no. of lines left in Op File item? 

Setting up u of Op 64 to proper address 

Transferring 170 Op File items to NP 
170 -> ES4 

Number lines in NP -» ES3 

Number of lines due to be in NP ES 

Sets up u of repeat to proper value 
Sets up v of Op 56 to correct address 
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53 

SP 

ESll 

17 \ 


54 

TU 

A 

OP 56 J 


55 

RP 

30000 

XP ) 


.56 

TP 
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30000J 



CA 

0P57 


Routine to 


IA 

XP 


Write Gen¬ 

0 

TU 

0P1 

XP2 

erated 

1 

TP 

GP3 

Q 

Routines 

2 

QT 
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ES12 J 

on Tape 

3 
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25 

- V 


4 

QT 

GP3 

ES10 J 


5 

TJ 

GP6 

XP22 


" 6 

TP 

ES12 

A 1 


7 

TJ 

GP5 

XP40 J 


10 

SP 

ES10 

17 \ 


11 

TU 

A 

XP13 J 

Drum 

12 

RP 

30170 

XP14 ] 


13 

TP 

30000 

GN J 

*■ 

14 

TP 

RC4 
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15 

RJ 

GT2 

GT J 


16 

RA 

ES6 

GP10 


17 

RS 

ES12 

GP5 


20 

RA 

ES10 

GP5 


.21 

MJ 

0 
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TP 

ES12 
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23 

TJ 

GP5 

XP40 J 


24 

DV 

GP5 

ES7 


25 

TP 

A 
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26 

TP 

ES7 

A 


27 

ST 

GP10 

A 

Core 

30 

LA 

A 

25 


31 

AT 

RC4 

GT3 . 


32 

TV 

ES10 

GT3 


33 

RJ 

GT2 
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34 

RA 

ES6 

ES7 


35 

MP 
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36 
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TP 
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ZJ 

XP41 
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Partial 

41 

SA 

GP6 
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Block 

42 

TU 
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XP45 J 


43 

SP 

ES10 

17 \ 


44 

TU 

A 

XP46 J 


45 

RP 

30000 

XP47T 


46 

TP 

30000 

GN J 


Sets up u of Op 56 to correct address 

Transfers last quantity of Op File items to 
NP, leaving NP as an unfilled partial 
buffer region block. 


Number of lines of subroutine ES12 


Address of 1st line of subroutines —>tS10 

If 30000> address, subroutine is in core* 
Otherwise, assumed to be in drum 

Test to see if subroutine has fewer than 
170 lines left 

Set-up u of XP13 to right address 

Transfer 170 lines of subroutines to GN 

Write block on tape 

Count of blocks 

Reduce ES12 to no. of lines left in subrtne. 

Increase ES10 to address of next line of sub¬ 
routine to be transferred 

Test for less than 170 lines in subroutine 

Number of blocks in subroutine —> ES7 

Remainder or number lines in last partial 
block to ES12 

Setting up parameter with correct number of 
blocks to be written on tape 


Setting up correct referencing address of 
parameter 

Writing blocks on tape 

Count of blocks 

Calculating number of lines written on tape 

Correcting ES10 address to that of next 
line to be transferred 

Test to see if any lines left to be written 
of subroutine 

Setting up u of repeat to proper value 

Setting up correct referencing address of 
next line of subroutine in XP46 

Putting remaining lines of subroutine in GN 
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47 

TP 

GP5 

A 

Setting up u of XP55 such that remainder of 

50 

SS 

ES12 

17 

GN is filled with right number of lines of 

51 

TU 

A 

XP55 
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52 
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XP55 

GP4 . 


53 

TV 
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54 

RA 
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RC3 J 
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55 

RP 
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TP 

GP2 
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r Filling up GN with Z f s 

57 

TP 
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GT3 

Parameter word-> generalized tape handler 

60 

RJ 
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GT 

To tape handler 

61 

RA 

ES6 

GP10 

Count of blocks 

62 

MJ 

0 

OP 

Exit 


CA 
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IA 
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0 

71 
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NP 

Parameter word to write 1 block on tape 5 





from NP 

1 

0 

0 

NP 

Address of 1st line of Op File storage 

2 

71 

00104 

GN 

Tape 4 parameter write from GN 

3 

0 

0 

GN 

Address of 1st line of storage used for a 





partial block of a gen. routine 
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0 
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IA 

GP 



0 

01 

01015 

15201 

AAA 0 P A 

1 

31 

34463 

00104 

F I L E A 1 

2 

74 

74747 

47474 

Line of Z *s 
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CA 
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Op Control Subroutine-Sequential Uses 
of Temporary Storage (ES) 

0 Number of lines in NP t buffer region in which Op Files are accumulated 
for writing on tape. 

1 ’'Number of lines in current Op File being stored. 

^Number of lines remaining to be stored from current Op File. 

2 Used to accumulate ES + ESI. 

3 fES —^ ES3 

- (ES3 + NP) —>ES3, giving the address in NP to which next line is to 
.be transferred. 

4 Number of lines put in NP from current Op File the last time a group of 
lines was transferred. 

5 Number of blocks of Op File 1 written on tape. 

6 Number of blocks of subroutines written on tape. 

7 Number of whole blocks of subroutines to be written on tape. 

10 Address of next line of subroutine to be written on tape. 

11 Address of next line of Op File to be transferred to NP. 

^2 fNumber of lines of subroutines. 

.Number of lines of subroutine in last block. 
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OP CONTROL SUBROUTINE - RG ROUTINE 


© 


© 


© 


To Insert Vary Call Word in Exit Line of Last Statement of 
Range and in the Op File I Item 
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30000 

RG20 J 

1 Vary File 

20 

SP 

RG16 

0 

jn-> Ar u 
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TU 
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TU 
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32 
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TV 

30000 
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34 

TP 
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35 
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TU 
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40 

TU 
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41 

TU 
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42 

TU 
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43 

SP 
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Enter # words of item in A u 

44 
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45 
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Set into RP 

46 
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47 
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51 

TV 
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52 

RA 
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53 RP 

54 TP 

55 TP 

56 SP 

57 TP 

60 QT 

61 MJ 

62 0 

63 0 

64 0 

65 0 

66 0 
67 0 

70 0 

71 0 
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30000 

30000 

RG 
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A 
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CONSTANT CALL WORD ROUTINE FOR GENERATION 


At the start of string-out 00 20000 00000 is put in fixed address 10, 
which is a counter register for the number of constants. Both u and v of 10 
increase with each added constant. If n of 0 2,n n in 10 exceeds IOOOq, the 

computer stops with the alarm print-out — (Sentence _(_) Too Many 

Constants. 

Input constant goes to A and the instruction RJ CW CWl activates the 
routine. The call word output goes to Q v and A y . 

The routine occupies 36 q lines in region CW. Region Cl t the list of 
constants, may occupy up to IOOOq lines in the maximum-size problem. Needed 
for the alarm print-out is the UP print-out subroutine. 

If a constant is already in list CL r entry to the routine gives the call 
word by determination of its position. If a constant is not in the list, it 
is added to it and given the next call-word-number assignment. 
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Flow Chart - CW Call Word Routine of Constants - Generation 
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15 

RJ 
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16 
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AT 
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Q 
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23 

QT 
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Q 
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24 
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25 
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25 

MJ 

0 

CW 
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26 

40 
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27 
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1 
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Routine D to Get Call Word of Referenced Line 
Number from List IZ - Generation 

To use this routine, the referenced line number is put in A. Then in¬ 
struction RJ LW LWl will put the call-word output in A y and Q. If a line 
number is not found in list IZ, the computer will stop with the error print¬ 
out: ALARM 2. COMPILATION INCONSISTENCY (POSSIBLE COMPUTER ERROR). RECOMPILE. 

If the call word of a line number is not found, the computer will stop with 

the error print-out: SENTENCE_(_) REFERENCED NUMBER_ 

IS NOT A PROGRAM SENTENCE. 
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Flow Chart - LW Generator Subroutine to Get Call Word of Referenced 
Line Number From Referenced~Line~Number List IZ 






Generation—LW Routine to Get Call Word of Referenced 
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Used as a mask in LS routine 

22 
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11 
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23 
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Address of 1st line of line no. list 

24 
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CA 
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Line Number Check Routine C — Generation 


Instruction RJ HI HI1 activates this routine without input. The routine 
picks out the line number of the sentence under surveillance from buffer region 
BK and checks to see if this number has previously been put in Line Number 
Reference List IZ. If an equality is found, a check is made to see if the call 
word of the line number has been put in the address following the line number 
in IZ. If not, the call word of the line number is obtained from the buffer 
region and inserted in the v part of this location. 
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Flow Chart for Routine C Generation - HI Reference-List Line-Number Checking Routine 
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Line no. to A 



3 

4 

RP 

EJ 

30000 

IZ 

HI 1 
HI5 J 

Is line no. in reference list IZ? 



5 

SN 

Q 

17 

-j t (r-n) 
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in v 


16 
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TU 
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20 

TU 
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Sets up same ref.-list address in next 







instruction 



21 

LQ 
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25 

Transfers call word to v position 



22 

MJ 

0 

HI 




23 

TV 

Q 

HI24 

Puts address into v of next instruction 


Call word 

24 

TP 

BK3 

30000 

Call word to right line in ref. list 
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25 

MJ 
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HI 



in v po¬ 

26 
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CA 
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KI Illegal Line Jump Check Routine — Generation 


After a call word has been obtained for a line number, it should be put 

in A (the rest of A must be cleared) for this test. (The regular call word 
u 

output of LW gives the call word as desired in A^.) In Q should be a pseudo¬ 
operation indicator. 40 0 0 indicates that a sentence is within a pseudo 
op. Zero indicates being outside a pseudo Op, Now instruction RJ KI KIl 
will activate this routine. 

Four error print-outs occur for attempted illegal jumps. All are prefixed 
by SENTENCE_ 

1) JUMP TO SENTENCE OUTSIDE PSEUDO OP FROM WITHIN PSEUDO OP IS NOT 
PERMITTED. 

2) JUMP TO PSEUDO OP LINE FROM OUTSIDE PSEUDO OP IS NOT PERMITTED. 

3) JUMP FROM ONE PSEUDO OP TO ANOTHER IS NOT PERMITTED. 

4) JUMP TO HEADING OF PSEUDO OP IS NOT PERMITTED. 

The computer stops after each of these print-outs and all tapes are re¬ 
wound. 

The call word comparisons within the routine are based on the convention 
that all sentences within a pseudo op, except the first, have a call word less 
than 23000 and all sentences outside a pseudo op have a call word greater than 
22777. The call word of the first line or heading of a pseudo op is 40000 plus. 
Only the compute instruction may reference this line. A list JN of 2nd line 
pseudo-op call words is used to check illegal jumps from one pseudo op to 
another. 
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KI Illegal Line Jump Check Routine - Flow Chart 

Line No* Call Word Input in Pseudo-Op Indicator in Q 









KI Illegal Line Jump Check Routine~-Generation 

Line No. Call Word Input in A u 
Pseudo-Op Indicator in Q 



0 

IA 

MJ 

KI 

0 

30000 


1 

TP 

BK1 

KI57 


2 

TJ 

KI54 

KI10 


3 

TP 

KI46 

UP 3 ] 


4 

RJ 

UP 2 

UP J 


5 

TP 

KI51 

UP 3 ] 


6 

RJ 

UP 2 

UP J 


7 

MJ 

0 

BQ6 

Call word 

10 

QJ 

Kill 

KI14 

< 40000 

11 

TJ 

KI52 

KI23 

within 

12 

TP 

KI45 

UP 3 ) 

pseudo-op 

13 

MJ 

0 

KI6 J 

Outside 

14 

TP 

A 

Q 

pseudo-op 

15 

TP 

KI53 

A 1 


16 

TJ 

Q 

KI j 


17 

TP 

KI46 

UP3 ) 


20 

RJ 

UP 2 

UP j 


21 

TP 

KI47 

UP 3 ] 

Within 

22 

MJ 

0 

KI6 J 

pseudo-op 

23 

TU 

JN 

KI24 


24 

RP 

20000 

KI41 ] 

25 

TJ 

JNl 

KI26 

26 

TP 

Q 

KI126J 

27 

TU 

JN 

KI31 

30 

SP 

BK3 

17 

31 

RP 

20000 

KI43 1 

32 

TJ 

JNl 

KI33 J 

33 

TP 

KI126 

A ) 

34 

EJ 

0 

KI j 

35 

TP 

KI46 

UP 3 1 

36 

RJ 

UP2 

UP J 

37 

TP 

KI50 

UP 3 ) 

40 

MJ 

0 

KI6 J 

41 

TP 

JN 

KI126 

42 

MJ 

0 

KI27 

43 

TP 

JN 

Q 

44 

m 

0 

KI33 

45 

0 

KI55 

20 


Exit 

Line No. to Print-Out Storage 

Is 40000> call word of line no = ? 

Sentence _ AjumpA 

To heading of pseudo-op is not permitted 

Jump to rewind of servos and computer stop 

Is sentence within pseudo-op? 

Is 23000> call word of line no.? 

Sentence_Jump to sentence outside 

pseudo op from within pseudo op is not 
permitted 

Line no. call word Q 

u 

Is line no. call word >22777? 

Sentence_Jump 

To pseudo op sentence from outside pseudo op 
is not permitted 

Setting up u of next instruction for com¬ 
parison of line no. call word with list 
JN of pseudo op 2nd lines 

Purpose of comparison is to find via Q to 
which pseudo op jump is being made 

Setting up u of instruction to number within 
JN list plus 20000 

Getting call word of sentence to u of A 

Determining via Q in which pseudo op we 
are operating 

If pseudo op in which we are operating is 
the same as pseudo op to which we are 
jumping, Q and KH26 will be equal 

Sentence_Jump 

From 1 pseudo op to another is not permitted 


Parameter for Sentence_Jump to Sentence 

outside pseudo op from within pseudo op 
is not permitted 
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46 

0 

KT55 

4 

Parameter for Sentence Jump 

47 

40 

KI75 

12 

Parameter for __ 

to pseudo op sentence 





outside pseudo 

op is not permitted 

50 

40 

KI107 

10 

Parameter for _ 

from one pseudo op to 





another is not 

permitted 

51 

40 

KI117 

7 

Parameter for _____ 

to heading of pseudo 





not permitted 


52 

0 

23000 

0 



53 

0 

22777 

0 



54 

0 

40000 

0 



55 

65 

30506 

63050 

S E N T E N 


56 

26 

30017 

77777 

C E A 


57 

0 

0 

0 



60 

01 

44674 

75201 

A J U M P A 


61 

66 

51016 

53050 

T 0 A S E N 


62 

66 

30502 

63001 

T E N C E A 


63 

51 

67666 

53427 

0 U T S I D 


64 

30 

01526 

53067 

E A P S E U 


65 

27 

51015 

15201 

D 0 A 0 P A 


66 

31 

54514 

70171 

F R 0 M A W 


67 

34 

66333 

45001 

I T H I N A 


70 

52 

65306 

72751 

PSEUDO 


71 

01 

51520 

13465 

A 0 P A I S 


72 

01 

50516 

60101 

AN 0 T A A 


73 

52 

30544 

73466 

PERMIT 


74 

66 

30272 

27777 

TED. 


75 

66 

51015 

26530 

T 0 A P S E 


76 

67 

27510 

15152 

U D 0 A 0 P 


77 

01 

46345 

03001 

A L I N E A 


100 

31 

54514 

70151 

F R 0 M A 0 


101 

67 

66653 

42730 

U T S I D E 


102 

01 

52653 

06727 

A P S E U D 


103 

51 

01515 

20134 

0 A 0 P A I 


104 

65 

01505 

16601 

S A N 0 T A 


105 

52 

30544 

73466 

PERMIT 


106 

66 

30272 

27777 

TED. 


107 

01 

31545 

14701 

A F R 0 M A 


110 

51 

50300 

15265 

0 N E A P S 


111 

30 

67275 

10151 

E U D 0 A 0 


112 

52 

01665 

10124 

P A T 0 A A 


113 

50 

51663 

33054 

N 0 T H E R 


114 

01 

34650 

15051 

A I S A N 0 


115 

66 

01523 

05447 

T A P E R M 


116 

34 

66663 

02722 

I T T E D . 


117 

66 

51013 

33024 

T 0 A H E A 


120 

27 

34503 

20151 

D I N G A 0 


121 

31 

01526 

53067 

F A P S E U 


122 

27 

51015 

15201 

D 0 A 0 P A 


123 

34 

65015 

05166 

I S A N 0 T 


124 

01 

52305 

44734 

A P E R M I 


125 

66 

66302 

72277 

T T E D . 


126 

0 

0 

0 




CA 

KI127 
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LS Library List Routine - Generation 


The list LN built up on the drum starting at 50046 during Generation is a 
list of call words of library routines referenced. 

Each call word is stored in the u position. Call words less than 50200 
designate Permanent Library Routines. Call words > 50200 designate library 
routines which have been put on the library tape on Uniservo 2 by the Librarian. 

LS Library List Routine distinguishes between the two types of library 
routines referenced and by means of two one-shot switches puts an indicator 
into counter 5 the first time each of the types is used. If a Permanent Library 
Routine has been referenced, 40 is put into the operation portion of counter 5. 

If a library routine from Uniservo 2 has been referenced, 20 is put into the 
operation portion of counter 5. Of course, when both types have been referenced, 
60 is in the operation portion of 5. 

The input to the routine is the call word of the library routine in A y . A 
search is made of the list to see if that call word has previously been put 
in. If it is already there, a quick exit occurs. If it is not there, it is 
put in the list at the next empty space and counter 5 is increased by 00 00001 
00001 to wO 2000n n where w is the indicator mentioned above and n is the 
cumulative number of call words in the list. Before the exit, a check is made 
to see if n is less than 100. If it is not, the following print-out occurs: 
SENTENCE_(_) TOO MANY LIBRARY ROUTINES. 

The blanks in this print-out are filled in, respectively, by a line number 
and the sentence type. Of course, if this improbable print-out occurs, all the 
tapes are rewound and the computer stops. 
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Flow Chart for Generation LS Library List Routine 






Library List Routine—Generation 


Input Call Word in A u 


0 

IA 

MJ 

LS 

0 

30000 

Exit 

1 

TP 

A 

Q 

Call Word -> q 

2 

TJ 

LS40 

LS7 

Is 50200 >call word? If so, a Permanent 

3 

RJ 

LS3 

LS5 

Library Routine is being referenced 

Call word is > 5(1200 

4 

MJ 

0 

LS12 


5 

CC 

5 

LS42 

Puts indicator that library routine from 

6 

MJ 

0 

LS12 

Uniservo 2 is being referenced into 5 

7 

RJ 

LS7 

LS11 


10 

MJ 

0 

LS12 


11 

CC 

5 

LS41 

Puts indicator that a Permanent Library 

12 

TP 

0 

A 

Routine has been referenced into 5 

Call Word —> A 

13 

TU 

5 

LS14 

Sets up u of repeat so that library list 

14 

15 

RP 

EJ 

20000 

LN 

LSI 6 1 
LS J 

may be compared 

■ If library routine is already in list, go to 

16 

TV 

5 

LS20 1 

exit 

I Putting library routine call word in list 

17 

RA 

LS20 

LS37 

[ LN when it has not been found there 

20 

TP 

Q 

30000] 

1 

21 

RA 

5 

CW27 

Adding 0 1 1 to counter 5 

22 

TP 

LW21 

Q 

Putting mask 07 77777 77777 into q 

23 

QT 

5 

A 

Masking indicator bits out of 5 for transfer 

24 

TJ 

LS36 

LS 

to A as 0 2000n n 

Is 00 20100 00100 >A. Thus n, number of 

25 

RJ 

WA 

WA2 1 

routines, must be< lOOio 

Print-Out: SENTENCE ( ) TOO MANY 

26 

27 

TP 

MJ 

LS30 

0 

UP 3 
CW15 J 

LIBRARY ROUTINES. Rewinds tapes and stops 

30 

40 

LS31 

5 

computer 

Parameter for print-out 

31 

66 

51510 

14724 

T 0 0 A M A 

32 

50 

73014 

63425 

N YA L I B 

33 

54 

24547 

30154 

R A R YAR 

34 

51 

67663 

45030 

0 U T I N E 

35 

65 

77777 

77777 

S 


37 0 

40 0 

41 40 

42 20 
CA 


36 0 C120000 Cl 


0 

50200 

0 

0 

LS43 


LN 

0 

0 

0 


Threshold for number of library routines. 

Cl = IOOxq 

Address of 1st line of library list 

Call word of 1st non-permanent library 
routine 

Indicator that a Permanent Library Routine 
has been referenced 

Indicator that Uniservo 2 Library Routine 
has been referenced 
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Routine for Conversion of Excess-Three to Flex Code 


Three regions — VX (154 q addresses), FC (IOOq addresses), and VE (6 ad¬ 
dresses) — comprise the total 262^ needed for this routine. 

The parameter input line, VX4, holds the address of the first line of input 
in the u portion. In the v portion is given the number of words of input. If 
every other line starting with the first address is to be selected as input, 

40 is put in the operation code of VX4. If every line following the first 
address is to be used, 00 is put in the operation code. 

In the u portion of VX3, the desired address of the first line of output 
should be supplied. V of VX3 must be zero before entering routine. The 
routine when operated by instruction RJ VX2 VX will supply in the v portion of 
VX3 the number of words of output. The Flex code output is packed from the 
left with the necessary added shift-up or shift-down Flex codes. 

Every excess-three character from 00 to 76 has a corresponding Flex code 
or set of Flex codes assigned to it as shown on the accompanying table. 77, 
though assigned Flex code 77, is not stored in the output. 

Because of the addition of shift-up and shift-down Flex codes and the 
fact that some excess-three characters are represented by more than one Flex 
code, greater storage space must be allowed for the output than is needed for 
the input. 

In the table the first digit of each Flex code representation is not stored 
in the output. It is used only to distinguish between lower-case and capital 
letters. A 4 in the first position indicates lower-case; 0 indicates capital. 

A basic assumption in this routine is that the characters on the Flexo- 
writer are in the standardized form shown in Table I on page 15 of PX38-(Input 
and Output Systems - Univac Scientific). Any changes made on the Flexowriter 
keyboard from this standard will cause erroneous results in the print and type 
instructions of UNICODE. 

The keyboard of the Unityper is assumed to be in accordance with the changes 
proposed on the two pages following the code table. See Chapter 8, Tape 
Preparation, of the UNICODE Manual for an explanation of a system of bypassing 
this requirement of an altered keyboard. 
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Excess Three to Flex Code Table 


Excess Three 
Character Where 
Different_ 


> 


; 


< 


Excess 

Three 

Flex 


Code 

Code 


0 

056 


1 

004 


o 

Ut 

'IkJKJ 


3 

437 


4 

452 


5 

474 


6 

470 


7 

464 


10 

462 


11 

466 


12 

472 


13 

460 


14 

433 


15 

054 


16 

413 01 

12 

17 

046 


20 

070 


21 

446 


22 

442 


23 

446 


24 

030 


25 

023 


26 

016 


27 

022 


30 

020 


31 

026 


32 

013 


33 

005 


34 

014 


35 

062 


36 

060 


37 

411 24 

12 


1003 


Char¬ 

acter 


Space 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


gtr 




» 


A 

B 

C 

D 

E 

F 

G 

H 

I 

\ 5 / 

\g/ 

lsr 



Excess Three to Flex Code Table (Cont.) 


Excess Three 

Excess 



Character Where 

Three 

Flex 

Char 

Different 

Code 

Code 

acte 


40 

074 

\g/ 


41 

064 

\ 3 / 


42 

450 

1 


43 

042 

) 


44 

032 

j 


45 

036 

K 


46 

Oil 

L 


47 

007 

M 


50 

006 

N 


51 

003 

0 


52 

015 

P 


53 

035 

0 


54 

012 

R 


55 

066 

N/ 

* 

56 

427 61 54 

* 


57 

033 

NS/ 


60 

037 

NK 


61 

052 

\i/ 


62 

044 

\/ 


63 

454 

+ 


64 

054 

/ 


65 

024 

s 


66 

001 

T* 


67 

034 

U 


70 

017 

V 


71 

031 

w 


72 

027 

X 


73 

025 

Y 


74 

021 

z 


75 

072 

\/ 


76 

444 

= 


77 

077 

Igno 


1004 



Proposed Unityper Changes 



PRESENT 


PULSE CODE 

NAME 

SYMBOL 

00 0000 

Ignore 

i 

00 1101 

Apostrophe 

t 

00 1110 

Ampersand 

& 

01 0000 

Carriage return 

t 

01 1101 

Number 

# 

01 1110 

Cent 

i 

01 1111 

At one 

@ 

10 0000 

Tab 

t 

10 0001 

Quotation 

w 

10 1101 

Dollar 

$ 

10 1111 

Question 

? 

11 0000 

Sigma 

2 

11 0001 

Beta 

P 

11 0010 

Colon 

• 

• 

11 1101 

Per cent 

% 


PROPOSED ADDITIONS 


NAME 

SYMBOL 

Superscript minus 

- 

Superscript slash 

/ 

Greater than 

> 

Superscript three 

3 

Superscript five 

5 

Superscript eight 

8 

Less than 

< 

Superscript two 

2 

Superscript four 

4 

Superscript six 

6 

Superscript nine 

9 

Superscript zero 

O 

Superscript one 

1 

Superscript decimal point 

• 

Superscript Seven 

7 


1005 



1006 




0000 

0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 

1010 

1011 

— 

1100 

1101 

1110 

mi 

















/* 

>** 

( 

00 


K. 

A 


- 

© 

1 

2 

3 

4 

5 

6 

7 

8 

9 


r 


& 




3* 
















5* 


8 * 

<** 

01 


* 


* 


• 

♦ 

• 

A 

B 

C 

D 

E 

F 

G 

H 

I 


n 


i 




2* 


4 * 














6 * 



c 

)* 

10 


t 


ft 



) 

-J 

K 

L 

M 

N 

0 

P 

0 

R 


$ 


❖ 


V 


0 * 


1 * 


* 












7* 



\ 

>/ 

11 

_ 

2 


P 


: 

+ 

/ 

S 

T 

U 

V 

W 

X 

Y 

Z 


% 


= 

/ 

\ 


* Superscript symbols 

** New symbols 
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Excess-Three to Flex Code Subroutine 


VX3 = 


VX4 = 


IA 
0 MJ 

1 RJ 

2 MJ 

3 0 

4 0 

5 TP 

6 RP 

7 TV 

10 TV 

11 TV 

12 TV 

13 TP 

14 TP 

15 TP 

16 QJ 

17 TP 

20 MJ 

21 TP 

22 TV 

23 TU 

24 TU 

25 LQ 

26 TV 

27 IJ 

30 MJ 

31 TP 

32 LQ 

33 LQ 

34 TP 

35 QA 

36 0 

37 EJ 

40 LA 



Must be set at zero 
before usino subroutine 


Address of 1st 
line of output 

No. of words of 
output 


00 if 
every 
line. 40 
if every 
other 
line 

Address of 1st 
line of input 

No. of words 
of input 



VX 

0 

VX5 

Entry 

0 

0 


0 

30000 

Exit 

0 

0 


0 

0 


VX152 

VE5 

Set up input line character index 

10005 

VX10 1 

Set up n-point distributor 

VX141 

VX65 

to beginning values 

VX140 

VX72 J 

1 Set up to insure that the output will start 

VX136 

VX47 ] 

VX137 

VX54 J 

f with either a shift up or shift down 

VX150 

VE 1 

. 47 57 

VX150 

VE 1 J 

r Clear 2 addresses of working storage 

VX4 

Q 

Parameter VX4 q 

VX17 

VX21 

Test to see if 40 is in operation code of q 

VX153 

VE2 

CO 2 OD ->VE2 to enable input address to be 

0 

VX22 

incremented so every other line is taken 

VX147 

VE2 

CO 1 OC -» VE2 

VX4 

VE 

Number of words of input — > VE 

VX4 

VX31 

Address of 1 st input line— > u of VX31 

VX3 

VE3 

VE3 1 
25 J 

1* Address of 1st output line-> v of VE3 

VE3 

VX102 

Address of 1 st output line— >v of VX102 

VE 

VX31 

Index jump for number words of input 

0 

VX121 


30000 

VE4 

Line of input — > VE4 

VE4 

17 

Initial shift of input line so 1 st character 

VE4 

6 

will be in proper position 

Puts character XY to be masked out in right 

VX142 

A ] 

side of u of VE4 

| CSP fc 0] + CO xjL 0]-*CSP fc + xy Od 

VX143 

VX36 

[ ->VX36 ^ 

0 

0 J 

I 

VX151 

VX115 

If Flex code picked up is a 77* storing part 

A 

44 

of routine is bypassed 

A —> A 

R L 
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41 

SJ 

VX42 

VX45 


42 

LA 

A 

3 


43 

SS 

A 

0 

j 

44 

MJ 

0 

VX47 


45 

LA 

A 

3 


46 

MJ 

0 

VX54 


47 

RJ 

VX54 

VX55 


c r% 
jy 

D T 

IV U 

rrve a 
VAd4 

trvro 
VA OC 


51 

MJ 

0 

VX73 

t 

52 

SA 

VX145 

0 


53 

MJ 

0 

VX60 

t 

54 

RJ 

VX47 

VX50 


55 

RJ 

VX47 

VX57 


56 

MJ 

0 

VX73 

v 

57 

SA 

VX144 

0 

V 

60 

LQ 

VE1 

6 


61 

SA 

VE1 

0 

* 

62 

TP 

A 

VE1 


63 

SS 

A 

0 


64 

RJ 

VX64 

VX65 


65 

RJ 

VX64 

VX101 


66 

RJ 

VX64 

VX101 


67 

RJ 

VX64 

VX101 

- 

70 

RJ 

VX64 

VX101 


71 

RJ 

VX64 

VX101 


72 

MJ 

0 

VX102 

- 

73 

LA 

A 

6 


74 

LQ 

VE1 

6 


75 

SA 

VE1 

0 

► 

76 

TP 

A 

VE1 


77 

SS 

A 

0 


100 

MJ 

0 

VX64 


101 

ZJ 

VX73 

VX115 


102 

TP 

VE1 

30000 


103 

SA 

VX102 

0 

I 

104 

SA 

VX146 

0 


105 

TP 

A 

VX102 

J 

106 

SS 

A 

0 


107 

TP 

VX150 

VE1 


110 

SA 

VX3 

0 

-i 

111 

SA 

VX146 

0 


112 

TP 

A 

VX3 


113 

SS 

A 

0 

- 

114 

MJ 

0 

VX101 


115 

IJ 

VE5 

VX33 


116 

TP 

VX152 

VE5 



Test if character is lower case. Negative 
means lower case 

Left shift and split subtract to eliminate 
4 from Flex code representation 

Jump to switch 

Left shift to properly position Flex code 
at far left of Al 

Jump to switch 

Entry^Switch to provide shift ups and shift 
downs in output only when a change is 
made from lower case to caps or vice versa 

Exit, No action. 

Exit. 

Entry. ^ 

Exit - no action. 

Exit. 

When Switch has provided a 47 or 57 to be 
inserted in VE1, these three steps pack 
the Flex code into the output line 

Clears Ar 

N-Point 

Distributor used to 
determine when each 
output line has received 
its six Flex code characters 


A no-action exit from the Switch causes sub¬ 
routine to transfer the Flex code character 
to the output, following which Ar is cleared, 
and a jump is made to the n-point distributor 


When a = 0?, an excess-three character has 
had its Flex code set used up 
Completed output line is stored 

v of instruction VX102 is increased by 1 
Clears Ar 

Output line is cleared 

Number of words of output is increased by 1 


Index jump to determine when a line of input 
has been exhausted 
Index is set up for next input line 
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117 

RA 

VX31 

VE2 

120 

MJ 

0 

VX27 

121 

TP 

VE1 

A “ 

122 

ZJ 

VX123 

VX2 

123 

TV 

VX134 

VX72 

124 

RP 

10005 

VX126 

125 

TV 

VX135 

VX65 

126 

LQ 

VE1 

6 

127 

MJ 

0 

VX64 

130 

TP 

VX102 

VX131 

131 

0 

0 

0 

132 

RA 

VX3 

VX146 

133 

MJ 

0 

VX2_ 

134 

0 

0 

VX130 

135 

0 

0 

VX126 

136 

0 

0 

VX55 

137 

0 

0 

VX50 

140 

0 

0 

VX102 

141 

0 

0 

VX101 

142 

SP 

FC 

0 

143 

0 

77 

0 

144 

0 

0 

57 

145 

0 

0 

47 

146 

0 

0 

1 

147 

0 

1 

0 

150 

0 

0 

0 

151 

07 

70000 

0 

152 

0 

0 

5 

153 

0 

2 

0 


CA 

VX154 



VX31 is increased to take next line of input 
Jump back to input-word index 

Test to see if output line is empty 

Setting up n-point distributor to handle 
last line of output 

Loop of left shifting until elements in VE1 
are in leftmost position 

Putting last line into output 

Completing count of output lines 
Handling final line of output 


Constant (used also by Read Generator) 


Region FC of Flex codes is not shown here because it has previously been 
given in the section explaining the tables used in the translation phase. 


EXCESS-THREE TO FLEX CODE 
USES OF WORKING STORAGE VE 

,0 Index for number of words in input. 

1 For assembling output characters. 

2 To increment address from which input lines are taken. 

3 To assemble first address of output. 

4 To store line of excess-three characters while working on it. 

5 Character index per line of input. 
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3. GENERATORS 




3, GENERATORS 


The generators are described in the order in which they are loaded on 
the drum. See Generation Subroutine Regions in the preceding section for 
this order. 
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Start Generator Flow Chart 







START GENERATOR SUBROUTINE 


RE 

PT2512 

RE 

PL5360 

RE 

FL2542 



RE 

OP 1047 


Generation subroutine 


RE 

WL2242 


Input to generator 


IA 

PT 



0 

MJ 

0 

30000 

Exit 

1 

2 

RP 

TP 

30010 

PT16 

PT3 ] 
PL J 

\ Generate Prelude format 

3 

4 

SP 

TU 

WL3 

A 

17 1 

PL J 

1* Sentence call word to prelude 

5 

TP 

WL1 

PL5 

Standard line no. 

6 

7 

RP 

TP 

30002 

PT26 

PT10 i 
FL 

^ Generate Op File I format 

10 

11 

SP 

TU 

WL3 

A 

17 j 
FL J 

^ Sentence call word to Op File I 

12 

13 

TP 

RJ 

PT15 

OP 

0P1 1 

0P2 J 

^ Parameters to Op (—> tape) 

14 

MJ 

0 

PT 

Exit 

15 

0 

PL 

FL 1 

Parameters 

16 

0 

0 

10 


17 

0 

0 

2 


20 

21 

0 

0 

0 

0 

0 

0 

Prelude format 

m 

22 

0 

0 

0 


23 

0 

0 

0 


24 

MJ 

0 

30000 


25 

MJ 

0 

01003, 


26 

27 

0 

0 

CO] 

0 

2 1 

2 J 

^ Op File I format 


CA 

PT30 




1015 



Jump Generation Routine 


The string-out input to the Jump Generator consists of 6 lines. The first 
four conform to the standard format: number of words in string-out in v part 
of first line, line number in second line, title in third line, and call word 
of sentence in v part of fourth line. The fifth line contains the line number 
of the line to which the jump is to be executed. The sixth line contains 
40 0 0 if the sentence is within a pseudo op; if not, it is cleared. 

The Jump Generator builds up the Op File, prelude, and running program 
from this data. The first line of the generated running program is a dummy 
line, MJ 0 30000, put in to conform to the standard format of all generated 
running programs. In the v part of the second running program line is put 
the call word of the sentence to which the jump is to be made. Following 
this line is the ten line, 10 0 1, put in to ensure that the jump will be 
made to the second line of running program generated for the sentence. The 
first line of any running program has been standardized as the exit line of 
that segment of coding. 

Also put in the Op File is the call word of the line number to which the 
jump is to be made. 

A separate routine, KI, is used to determine if the jump is permitted. 
Jumps may be made within a pseudo operation only to other sentences that are 
also within the same pseudo op. Jumps may not be made from outside a pseudo 
op to sentences within a pseudo op. Jumps may not be made to the first line 
or initial heading of a pseudo op. 

As with other generation routines, the final instruction is the reference 
to the op routine which stores the Op File and writes the generated routine on 
tape. 
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Put call words of 
current sentence in 
Op File and prelude 


Jump Generation Flow Chart 








Jump Generation 


RE JU2512 

Generation Subroutine regions are also needed to assemble 
this tape 

IA JU 

0 MJ 0 30000 

1 SP BK3 17 1 Call word of sentence to 1st line of Op 

2 TU A JU17 J File in u position 

3 TU A JU22 Call word of sentence to 1st line of 

prelude in u position 

4 TP BK1 JU27 Line no. to prelude 

5 TP BK4 A \ Getting call word of line number to be 

6 RJ LW LWl / jumped to from ref. list 

7 TV Q JU31 Call word to v of running prog, jump line 

10 TU A JU21 Call word to Op File cross reference 

11 TP BK5 Q j Puts pseudo op indicator into Q 

12 RJ KI KI1 J Check to see if jump is permitted 

13 TP JU16 0P1 | Writes Op File & prelude & running program 

r on tape 

14 RJ OP 0P2 J 

15 MJ 0 JU Exit 

16 0 JU22 JU17 Parameter for writing Op File & generated 

routine on tape 

17 0 30000 3 ] 

20 0 0 2 r Op File "dummy" lines 

21 0 30000 0 J 

22 0 30000 11 

23 0 0 3 

24 0 0 0 

25 0 0 0 [ Prelude "dummy" lines 

26 0 0 0 

27 0 0 0 

30 MJ 0 30000 1 

31 MJ 0 30000 J Running program "dummy" lines 

32 10 0 1 

CA JU33 
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If Generation 


The "if" string-out output VN - VN33, as described in the write-up for same, 
becomes the input BK - BK33 of this routine, KB, the control routine, generates 
the coding needed for obtaining the variables or constants to be compared. If 
X or Y is a subscripted variable, a relative constant call word (lOOOO or 10001) 
is assigned to it in the coding. The regular call word of X or Y is stored 
following the generated routine. The processor later replaces the 10000 call 
word with the address of this stored call word. The stored call word in turn 
is replaced by the address of the first line of the array of the variable. This 
obviates the necessity of the routine keeping track of where the call word of 
the variable has been put and putting this address relative to 1000 in wherever 
a reference is made to the variable. 

When X or Y is a pseudo op subscripted variable, this indirect method is no 
longer necessary. Because the pseudo op call word is a call word of a call 
word, the address is obtained by using it directly. 

KB uses KC routine to generate the coding needed for getting the right 
address of an item in an array of values of a subscripted variable. The number 
of subscripts of a subscripted variable must never be zero. The call word of 
the first line of an array is obtained by using the subscripts but giving them 
zero value. Operation of KC is based upon the following formula: 

1 [X(I,J,K,L)] = 1 [x(0,0,0,0)] + [i-Mj + J.M + K-M K + L] Modulus Z 

Z, the modulus, is the product of the number of values assignable to each 
subscript in the dimension statement. The subscripts vary from right to left. 

M K = 4) where 

statement, viz: DIM X(I D ,J^K^I^). Mj = K^L^. Mj = ^.K^L^ 

Z = 1^*4)’ 1 [X(0,0,0,0)] means the address of the variable whose 

subscripts are zero. Thus, it is the address of the first line in an array. 

It is located by use of the relative constants 10000 and 10001, as explained 
above. 

Thus the program divides the sum of the products and the value of L by the 
modulus Z. The remainder in A is added to the address represented by 


Lq means the number of values retained for L as shown in dimension 
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1 [X(G,0,0,0)] to give the final address of 1 [X(I f J,K f L5]. This address is 

transferred to A where it is used in a TU instruction to set up a TP in- 
u 

struction that will put the variable into a temporary storage location, 60000 
for X and 60001 for Y. Following instructions give X and Y absolute or 
negative values, if desired. The processor changes 60000 and 60001 to assigned 
addresses. 

Coding for the tests needed is now generated. The threshold jumps that 
make the tests go to manual jumps within the coding. This is done to facilitate 
segmentation. In the v addresses of these manual jumps is put the call word 
of the line number to which the main jump is to be made. Following the manual 
jumps, "10 lines" are put to ensure that the jump to coding of a sentence goes 
to the second line of the coding, the first line being an exit. 

Subroutine KD generates the test coding for the situation in which three 
line numbers of possible jumps have been supplied in the string-out input. 
Subroutine KF takes care of the case in which there are two line numbers and 
one test which divides X and Y into two exhaustive categories. Also taken 
care of in this routine is the situation in which two tests are requested but 
no third line number is given for a final jump in case both fail. In the latter 
instance, of course, the jump is made back to the beginning address, 1000, of the 
coding. From here, a jump is made to the second line of the coding for the 
subsequent sentence. 

Subroutine KK takes care of the case when just one test is made in an "if" 
sentence. In addition, a segment of it handles the details of termination and 
references the op routine to get the Op File and generated routine written on 
tape. 

KH consists of a group of subroutines which assist in all the functions 
described above. The Op File is stored and built up here. In its initial form 
KH57 holds 0 30000 2 in the first line of Op File, This line is not preset 
at the start of a use of the Generation Routine. Hence, it becomes necessary 
to transfer the generation coding afresh either from drum or tape prior to 
each use of it. The v of this instruction is added to as lines are filled in 
the Op File, One subroutine of KH keeps a count of the line of the running 
program relative to 1000 as it loads output region GL. This count, called 
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lOQx on "if" generation annotated coding, is used to compute jump addresses and 
to calculate total lines at end of "if" generation. 

Print-outs that may occur during "if*generation are those which accompany 
use of KI, the illegal line number check routine. (See separate write-up on 
KI.) In a KH subroutine, the call word of the line number is obtained from LW, 
sent to KI for checking, and then put in the generated routine. (See reference 
list write-up for print-out that may occur in LW.) 


1/ \ U A 1 J « A M M X _ - J J I/C 1 L. 1 1.. „_ i «... i A w. - JU 1 JU _ „ _ J i i ^ J 

xvn ii uxu o uuiisuaiika uscu ciiiu ivu jiuaus uuiiiilij xna u uu t iuiis iiidk arc ffiuuxxxeu 


and assembled to make up the generated routine. 


Attached is an explanation of the use of temporary storage (addresses 
GL100 - 112), a descriptive format of first eight lines of GL output, and 
samples of generated coding. 
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GL 

100 

101 

102 

103 

104 

105 

106 
107 
110 
111 
112 



0 u v Call word of sentence to u of GL. v = lOOx - 

1000 + 6. Thus v is no. lines generated routine 
incl. ”10 lines” and prelude. 

0 0 v v = lOOx - 1000, number of lines subject to 

address modification. 

0 20000 0 The 2 in 3rd digit from left is a count of 

temporaries used. Count of relative constants 
is in 4th digit from right. 

000 Number of inputs is zero. 

000 Number of outputs is zero 

Line Number Line number of sentence 

MJ 0 v v = lOOx - number of ”10” lines + 3. This gives 
a jump to 2nd line of coding of subsequent sent. 

Entry line of running program. 


Temporary: Storage for If Generation 


Where each new line of running program is 
assembled before insertion in output GL. 

0 0 lOOx Ordinal number of running program line relative 

to 1000 (”10 lines” are included.) Always has 
next line to be used. 

0 0 v Used in computing jump lines. 

0 0 v Number of relative constants used. (10000 and/or 

10001 ) 


0 0 v 

0 0 v 

0 0 v 


Call word of subscripted variable equated to 

10000. 

Call word of subscripted variable equated to 

10001 . 

Number of 10 lines 


0 u v (BK15) 

0 u v (BK16) 

0 u v (BK17) 

0 0 v (BK20) 


Holds, alternatively, the values in 
BK15 - 20 on X and BK25 - 30 on Y 
when these are subscripted variables. 


1022 



IF GENERATION - SAMPLE CODING 


^Example 1 


NOT in Pseudo-Op List 
< First test 


> Second test 






For both 

X and 

Y: 

Sign complement 

desired 






Absolute 

value 

desired 



X and Y 

subscripted 

variables with 

4 subscripts each 



GL 








0 

0 

u 

50 

u = Call word 

of 

"IF" sentence line no. 


1 

0 

0 

42 





2 

0 

20000 

02000 





3 

0 

0 

0 





4 

0 

0 

0 





5 

Line 

Number 





1000 

6 

MJ 

0 

1042 




1001 

7 

SP 

u 

0 " 

u = Call word 

of 

L subscript 

1002 

10 

MA 

u 

V 

u = Call word 

of 

M{( = K multiplier 






v = Call word 

of 

K subscript 

1003 

11 

MA 

u 

V 

u = Call word 

of 

M J 






v = Call word 

of 

J 

1004 

12 

MA 

u 

V 

u ?= Call word 

of 

Mj 






v ^ Call word 

of 

I 

1005 

13 

TJ 

u 

1007 

* u = Call word 

of 

Z, modulus 

1006 

14 

DV 

u 

Q 

u = Call word 

of 

Z t modulus 

1007 

15 

SA 

10000 

17 




1010 

16 

TU 

A 

1011 

("Braced portion 

i is coding to obtain X in 

1011 

17 

TP 

30000 

60000 

{^proper form in 

i 60000. 

1012 

20 

TM 

60000 

60000 




1013 

21 

TN 

60000 

60000 j 




1014 

22 

SP 

u 

0 ] 




1015 

23 

MA 

u 

V 




1016 

24 

MA 

u 

V 




1017 

25 

MA 

u 

V 

Coding to put 

Y 

in proper form in 60001. 

1020 

26 

TJ 

u 

1022 

1 Explanations of i 

u and v are same as for 

1021 

27 

DV 

u 

0 

X above. 



1022 

30 

SA 

10001 

17 




1023 

31 

TU 

A 

1024 




1024 

32 

TP 

30000 

60001 




1025 

33 

TM 

60001 

60001 




1026 

34 

TN 

60001 

60001j 




1027 

35 

TP 

60000 

A 

X A 



1030 

36 

TJ 

60001 

1033 

Is X < Y? 



1031 

37 

EJ 

60001 

1034 

Is X > Y? 




*The sentence from which this program was developed read as follows: If 
- \ X{i r j,fc-,-1) {< - | Y(i f j,k f 1)| jump to^ sentence 42 r if - | X<i l j t k f l)}> — 

lY(i, j ,k, 1) I jump to sentence 54, if - |X(i,j, k, l) | = - 1Y(i,j t k r 1) | jump to 
sentence 4A. 


1023 



X > Y 


1032 

40 

MJ 

0 

V 

v = Call word of line number of 2nd test. X > Y 


41 

10 

0 

1 


1033 

42 

MJ 

0 

V 

v = Call word of line number of 1st test. X < Y 


43 

10 

0 

1 


1034 

44 

MJ 

0 

V 

v = Call word of 3rd line number. X = Y. 


45 

10 

0 

1 


1035 

46 

0 

0 

V 

10000 equated to 1035 by processor, v = Call 
word of 1st line of X array. 

1036 

47 

0 

0 

V 

10001 equated to 1036 by processor, v = Call 
word of 1st line of Y array. 
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Temporary storage. 60000 equated to this address 
by processor. 

1040 





Temporary storage. 60001 equated to this address 
by processor. 

1041 





1st line of program of next sentence (exit). 

1042 





2nd line of program of next sentence (entrance). 






Op File 


KH 






57 

0 

u 

7 

u is call word of "if" line number. 


60 

0 

0 

41 

lOOx - 1000 - "10 lines" + 2 temporaries. 


61 

0 

u 

0 

u is call word of X. 


62 

0 

u 

0 

u is call word of Y 


63 

0 

u 

0 

u is call word of 2nd test line number. 


64 

0 

u 

0 

u is call word of 1st test line number. 


65 

0 

u 

0 

u is call word of 3rd line number. 

The count kept in 

GL101 

of the ordinal program number line relative to 

1000 

is not 

the 

same 

as that 

shown above since it includes "10 lines". Proper 


deductions are made for this inclusion in computing the totals near the end of 


the program. 
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^Example 2 

In Pseudo Op List with a Pseudo Op subscripted variable of 3 subscripts for X 
& 2 for Y 
< = Single test 

Only one line number (one for above test) 

Sign Complement of X desired 

GL 



0 

0 

u 

33 

u = Call word of "If 11 sentence line number 


l 

1 

A 

U 

o 

25 



2 

0 

20000 

0 



3 

0 

0 

0 



4 

0 

0 

0 



5 

Line 

Number 



1000 

6 

MJ 

0 

1027 

X > Y 

1001 

7 

SP 

u 

0 ' 

u = Call word of K subscript 

1002 

10 

MA 

u 

V 

u = Call word of Mj 
v = Call word of J 

1003 

11 

MA 

u 

V 

u = Call word of Mj 






v = Call word of I 

1004 

12 

TJ 

u 

1006 

u = Call word of Z, modulus 

1005 

13 

DV 

u 

Q 

u = Call word of Z t modulus 

1006 

14 

SA 

u 

17 

u = Pseudo op call word of call word of X 

1007 

15 

TU 

A 

1010 

1010 

16 

TP 

30000 

60000 

—This puts X into 60000 

1011 

17 

TN 

60000 

60000. 

1012 

20 

SP 

u 

0 ' 

u = Call word of J subscript 

1013 

21 

MA 

u 

V 

u = Call word of Mj 
v = Call word of I 

1014 

22 

TJ 

u 

1016 

1 u = Call word of Z. modulus 

1015 

23 

DV 

u 

Q 

j 

1016 

24 

SA 

u 

17 

>■ u = Pseudo op call word of call word of Y 

1017 

25 

TU 

A 

1020 

—This puts Y into 60001 

1020 

26 

TP 

30000 

60001. 


1021 

27 

TP 

60001 

A 


1022 

30 

TJ 

60000 

1000 

Is X > Y? 

1023 

31 

MJ 

0 

V 

v = Call word of line no. of 1st test. X< Y. 


32 

10 

0 

1 


1024 





Temp storage 60000 equated to this address 
by processor. 

1025 





Temp storage 60001 equated to this address 
by processor. 





Op File 


KH 






57 

0 

u 

3 

u = Call word of w If" sentence line number. 


60 

0 

0 

26 

Running prog, length including 2 temporaries 


61 

0 

u 

0 

u = Call word of line number of test 

*If - 

XU.j.k) 

< = 

m.j) 

lump to sentence 37A. 
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^Example 3 


< First test 
> Second test 
No 3rd line number 

X and Y are not subscripted variables. 


GL 



0 

0 

u 

20 

u = Call word of "if" sentence line numbe 


1 



12 



2 

0 

20000 

0 



3 

0 

0 

0 



4 

0 

0 

0 



5 

Line 

i Number 


1000 

6 

MJ 

0 

1013 

X = Y 

1001 

7 

TP 

u 

60000 

u = Call word of X 

1002 

10 

TP 

u 

60001 

u = Call word of Y 

1003 

11 

TP 

60000 

A 


1004 

12 

TJ 

60001 

1007 

Is X < Y? 

1005 

13 

EJ 

60001 

1000 

Is X * Y? 

1006 

14 

MJ 

0 

V 

v = Call word of line number of 2nd test. 






X > Y. 


15 

10 

0 

1 


1007 

16 

MJ 

0 

V 

v = Call word of line number of 1st test. 






X < Y. 


17 

10 

0 

1 

i. 
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Temporary (60000) 

1011 





Temporary (60001) 

1012 





1st line of next sentence coding 

1013 





2nd line of generated program of next 






sentence 





Op File 


KH 






57 

0 

u 

4 

u = Call word of "if" sentence line numbe 


60 

0 

0 

12 



61 

0 

u 

0 

u = Call word of 2nd test line number 


62 

0 

u 

0 

u = Call word of 1st test line number 


*If X < Y jump to sentence 67, if X > Y jump to sentence 33A . 
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1027 


Store call word of 
variable given 10000 
call word 


Up count of relative 
constants used 



First test line 


Second test line 

number .subroutine 


number subroutine 
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Subroutine to Generate Coding for a Subscripted Variable 


Is number 


Is number 


of subscripts\ No / of subscripts 


Entry' 


/is number 
^of subscripts 
l three? 


4 Subscripts 

SP 30000 0 

No to temporary 
* storage 























1030 


Termination Subroutine 


©- 


Sentence 
word to 
line of 

call 

u of 1st 
Op File 

> 

1 

Sentence call 
word to u of 

1st line of 
prelude 

> 

1 _ 


Two relative 
constant call 
words put at end 
of generated 
program 

- 1R - 


Have zero relative Yes^--v 
constants been used?)—>(20) 




No 


Has only one rela- 
[tive constant been 
used? 


No 


—>(20)—» 


Yes 


Compute number of 
lines subject to 
address modifi¬ 
cation and store 
in 2nd line of 
prelude 


Compute running 
program length in¬ 
cluding temporaries 
and store in 2nd 
line of Op File 


Store Op File 
and write gen¬ 
erated routine 
on tape 



Compute proper jump 
number of line rel¬ 
ative to 1000 that 
will go to next UNI¬ 
CODE instruction. 

Put no. in v of 1st 
line of object program 


Compute number of 
lines generated 
routine including 
”10 lines” and prel¬ 
ude and put this 
number in 1st line 
of prelude 


One relative 
constant call 
word put at end 
of generated 

-*® 


TJ 60000 100x+4 
to output 

-> 

EJ 60000 30000 
to temporary 
storage 

program 
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< 




> 

36 ^- >1 


TP 60001 A 
to output 





Is 2nd test 
an equals? 


Yes 


>No 


TJ 60000 10Qx+3 

to output 



EJ 60000 1000 

to temporary storage 





MJ 0 1000 

to temporary storage 
-- 


TJ 60001 100x+4 

to output 

- 

EJ 60001 30000 
to temporary storage 

ESS 

100x+3 to v of stor¬ 
age line 

*—> 

Line to 
output 
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IF Generation Regions 


RE KB2512 
RE KA2644 
RE KC2660 
RE KD2737 
RE KE3070 
RE KF3I23 
RE KH3265 
RE KK3353 
RE SA3457 
RE KR3462 


Generation Subroutine regions are also needed to assemble this tape. 
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If Generation 


KD - Unconditional jump with second test 
KB - Start- Control 

KF - Unconditional Jump and no second test. KF53 - no unconditional jump 
and a second test. 

KK - No unconditional jump and no second test. KK47-Termination loop. 

KC - Subscripted variable coding 
KH and KR - Subsidiary routines 
KA - Constants 
KE - Dummy instructions 


Unconditional IA 
jump with 0 TP 

second 1 ZJ 

test 2 TP 

__3 EJ 

<lst t.est T 4 E J 

5 TP 

6 RJ 

7 TP 

~>2nd test A 10 E J 

11 TP 

12 RJ 

13 RJ 

14 RA 

15 TP 

16 TV 

17 RJ 

20 RJ 

21 RJ 

22 RJ 


KD 

BK7 

KD2 

BK4 

KA4 

KA5 

KE10 

KH40 

BK6 

KA4 

KE11 

KH24 

KH40 

GL102 

KE14 

GL102 

KH40 

KH3 

KH7 

KH13 


_23 TP KA4 

!nd test |24 MJ 0 

25 TP KE11 

26 RJ KH30 

27 RJ KH40 

30 RS GL102 

31 TP KE14 

32 TV GL102 

33 RJ KH40 

34 RJ KH13 

35 RJ KH3 


36 RJ KH7 

_37 TP KA4 

1st test f40 M J 0 

41 TP KE10 

42 RJ KH40 

43 TP BK6 

44 EJ KA5 


KD41 J 
KD75 
GL1001 
KH35 J 

A 1 

KD25 J 

GL100 

KH21 

KH35 

KA 

GL100 

GL100 

KH35 

KH 

KH4 

KH10 

GL106 

KK47 

GL100 

KH25 

KH35 

KA 

GL100 

GL100 

KH35 

KH10 

KH 


KH4 
GL106 
KK47 
GL1001 
KH35 J 

A \ 
KD61 J 


Is there a second test? 

Is first test an =? 

Is first test > ? 

TP 60000 A to output 

Is 2nd test an =? 

TJ 60001 30000 

To put proper jump (+3) in v of above 
Line to output 

Adding 1 to jump storage line in GL102 

EJ 60001 30000 

Jump (100X + 4) to v of above 

Line to output 

Line no. of 2nd test to output plus ”10” line 
1st test line no. + ”10” line to output 
Unconditional jump line number + 10 line to 
output 

3 to GL106 as count of number of 10 lines 
Jump to termination loop 
TJ 60001 30000 

100X + 4 to v of above instruction 

Line to output 

100X + 3 now in GL102 

EJ 60001 30000 

100X + 3 to v of above 

Line to output 

MJ 0 v followed by 10 line to output. 

v = unconditional jump line no. 

MJ 0 v followed-by 10 0 1. 2nd test 

line no. = v 

MJ 0 v (first test) with 10 0 1 to output 

Number of 10 lines (3) to storage 
Jump to termination loop 

TP 60000 A to output 

Is 2nd test > 
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<2nd test 45 

TP 

KE14 

GL100 

EJ 60001 30000 

46 

RJ 

KH30 

KH25 

100X + 4 to v of above 

47 

RJ 

KH40 

KH35 

Line to output 

50 

RS 

GL102 

KA 

100X +4-1 

51 

TP 

KE11 

GL100 

TJ 60001 30000 

52 

MJ 

0 

KD32 


53 

TP 

KE32 

GL100 

TU A 30000 

54 

TU 

A 

GL100 

Puts 61 - Call word into u of above 

instruction 

55 

RJ 

KR4 

KR1 

Puts address of next instruction into v of 
above instruction and sends line to output. 

Pro 61-NI] 

56 

MJ 

0 

30000 


57 

0 

0 

0 


>2nd test / 60 

0 

0 

0 


61 

TP 

KE14 

GL100 

EJ 60001 30000 

62 

RJ 

KH24 

KH21 

100X + 3 to v of above instruction 

63 

RJ 

KH40 

KH35 

Line to output 

64 

RA 

GL102 

KA 

100X +3+1 

65 

TP 

KE11 

GL100 

TJ 60001 30000 

66 

TV 

GL102 

GL100 

100X + 4 to v of above 

67 

RJ 

KH40 

KH35 

Line to output 

70 

RJ 

KH3 

KH 

2nd test 

71 

RJ 

KH7 

KH4 

1st test 

72 

RJ 

KH13 

KH10 

Unconditional test 

73 

TP 

KA4 

GL106 

3 to count of ten lines 

>lst test 1 74 

JLJ 

0 

KK47 

To termination loop 

75 

TP 

KE15 

GLlOOl 

TP 60001 A to output 

76 

RJ 

KH40 

KH35 J 

77 

TP 

BK6 

A I 

Is 2nd test -? 

<2nd test/ 100 

EJ 

KA4 

KD115J 

101 

'tp 

KE16 

GL100 

TJ 60000 30000 

102 

RJ 

KH24 

KH21 

100X + 3 to v of above 

103 

RJ 

KH40 

KH35 

Line to output 

104 

RA 

GL102 

KA 

100X +3+1 

105 

TP 

KE24 

GL100 

EJ 60000 30000 

106 

TV 

GL102 

GL100 

10QX + 4 to v of above 

107 

RJ 

KH40 

KH35 

Line to output 

110 

RJ 

KH3 

KH 

2nd test 

111 

RJ 

KH7 

KH4 

1st test 

112 

RJ 

KH13 

KH10 

Unconditional test 

113 

TP 

KA4 

GL106 

3 to count of ”10” lines 

= 2nd test/114 

MJ 

0 

KK47 

To termination loop 

115 

TP 

KE16 

GL100 

TJ 60000 30000 

116 

RJ 

KH30 

KH25 

100X + 4 to v of above 

117 

RJ 

KH40 

KH35 

Line to output 

120 

RS 

GL102 

KA 

100X +4-1 

121 

TP 

KE24 

GL100 

EJ 60000 30000 

122 

TV 

GL102 

GL100 

100X + 3 to v of above 

123 

RJ 

KH40 

KH35 

Line to output 

124 

RJ 

KH13 

Kino 

Unconditional test 

125 

RJ 

KH3 

KH 

2nd test 

126 

RJ 

KH7 

KH4 

1st test 
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127 

TP 


130 

MJ 



CA 

Start- 


IA 

Control 

0 

MJ 


1 

TV 


2 

TV 


3 

TP 


4 

TP 


5 

TP 


6 

TP 


7 

TP 


10 

TP 


11 

TP 


12 

RJ 

Generation 

13 

TP 

coding for 

14 

ZJ 

X 

15 

SP 


16 

TJ 


17 

RJ 


20 

TU 


21 

TP 


22 

RA 


23 

TP 


24 

QT 


25 

TU 


26 

TU 


27 

RP 


30 

TP 


31 

TP 


32 

QT 


33 

RJ 


34 

TP 


35 

RJ 


36 

MJ 


37 

TU 


40 

MJ 

Non- 

41 

TP 

subscrip- 

42 

SP 

ted X 

43 

TU 


44 

RJ 


45 

TP 


46 

QJ 


47 

TP 


50 

QJ 


51 

TP 


52 

RJ 


53 

TP 


54 

QJ 


KA4 GL106 

0 KK47 

KD131 

KB 

0 30000 

KK101 KH35 

KK102 KH41 

KA1 GL103 

KE12 GL2 

KA1 GL3 1 

KA1 GL4 J 

BK1 GL5 

KA2 GL101 

KE GLIOOj 

KH40 KH35 J 

BK11 A \ 

KB 15 KR5 / 

BK14 17 \ 

KA10 KB37 J 

KH16 KH14 

KA11 KE31 

BK14 GL104 

GL103 KA 

KA7 Q 

BK11 A 

A KE27 \ 

A KE30 J 

30004 KB31 \ 

BK15 GL107J 

KA6 Q 

BKll A 

KC KC1 

KE1 GL100\ 

KH40 KH35 J 

0 KB47 

A KE31 

0 KB23 

KE1 GL100 

BK14 17 1 

A GL100 J 

KH40 KH35 

BK31 Q 1 

KB57 KB47 J 

BK13 Q 1 

KB51 KB53 J 

KE3 GL1001 

KH40 KH35 J 

BK12 Q \ 

KB55 KB57 J 


3 to count of "10" lines 
To termination loop 


Exit 

GL6 to v of KH35 
KH6 to v of KH41 

Clearing GL103, the counter of relative 
constants used 
0 20000 0 to output 

Clear GL3, GL4 

Line no. to GL5 
0 0 1000 to GL101 

MJ 0 30000 to GL6, first line of Object 
Program 

If BKll isn f t zero, X is a subscripted 
variable 

If 77000> call word, it is a pseudo-op sub¬ 
scripted variable 

Puts call word of sub. var. in Op File & ups 
count of relative cons, used 
10000 to u of SA 30000 17 

Storing call word of variable given 10000 
call word 

Count of relative const, used increased by 1 

0 77777 0 mask to q 

Call word of modulus to A„ 

.. , , „ . , . fTJ 30000 30000 

Modulus call word to u of ■< mr 

(J)V 30000 q 

Subscript data to GL107-12 

Mask of 0 0 77777 to q 
Number of subscripts to A 
Generation of coding for subscripted variable 
TP 30000 60000 to GL100 and to generated 
output coding 

Call word to u of instruction (SA 30000 17) 
for pseudo op 

TP 30000 60000 to GL100 
Call word to u of above 
Line to generated coding output 
Is X a constant? 

Is absolute value desired? 

TM 60000 60000 to output 

Is negative value desired? 
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55 

TP 

KE4 


56 

RJ 

KH40 


57 

TP 

BK21 

Generation 

60 

ZJ 

KB61 

coding for 

v 

61 

SP 

BK24 


62 

TJ 

KA10 


63 

RJ 

KH16 


64 

TP 

GL103 


65 

ZJ 

KB66 


66 

TU 

KA12 


67 

TP 

BK24 


70 

MJ 

0 


71 

TU 

KA11 


72 

TP 

BK24 


73 

74 

75 

76 

77 
100 
101 
102 

103 

104 

105 

106 
107 
110 
111 

Non-sub- 112 
scripted 113 
Y 114 

115 

116 
117 
120 
121 
122 

123 

124 

125 

126 
127 

130 

131 


RA 

GL103 

TP 

KA7 

QT 

BK21 

TU 

A 

TU 

A 

RP 

30004 

TP 

BK25 

TP 

KA6 

QT 

BK21 

RJ 

KC 

TP 

KE2 

RJ 

KH40 

MJ 

0 

TU 

A 

MJ 

0 

TP 

KE2 

SP 

BK24 

TU 

A 

RJ 

KH40 

TP 

BK32 

QJ 

KB130 

TP 

BK23 

QJ 

KB122 

TP 

KE5' 

RJ 

KH40 

TP 

BK22 

QJ 

KB126 

TP 

KE6 

RJ 

KH40 

TP 

BK10 

ZJ 

KD 

CA 

KB 132 


GL 1001 
KH 35 J 

A 1 
KR 10 J 

17 1 

KB 110 J 

KH 14 

A 1 

KB 71 J 

KE 31 

GL 105 

KB 73 
KE 31 
GL 104 

KA 

Q 

A 1 

KE 27 \ 

KE 30 J 

KB 1021 

GL 107 J 

Q 

A 

KC 1 

GL 100 \ 

KH 35 J 

KB 120 

KE 31 

KB 74 

GL 100 

17 \ 
GL 100 J 

KH 35 

Q 1 
KB 120 J 

Q \ 
KB 124 J 

GLIOOI 

KH 35 J 

0 1 
KB 130 J 

GL 100 1 

KH 35 J 

A ! 
KF 53 J 


TN 60000 60000 to output 

Is Y a subscripted variable? 

If 77000>call word, it is a pseudo op sub. 
variable 

Puts call word of sub. var. in Op File and 
ups count of rel. cons, used 
Have any relative constants of 10000 type 
been used? 

10001 to u of SA 30000 17 

Storing call word of variable given 10001 
call word 

10000 to u of SA 30000 17 

Storing call word of variable given 10000 
call word 

Count of relative constants increased 
0 77777 0 to q 

w , . ., . . - f TJ 30000 30000 

Modulus call word to u of 1 n x r 

l DV 30000 q 

Subscript data of Y to temporary storage 

0 0 77777 to q 

Number of subscripts to A 

Gen. of coding for subscripted variable 

TP 30000 60001 to output 

Call word to u of SA 30000 17 for pseudo op 

TP 30000 60001 to output line 

Call word to u of above line 
Line to output 
Is Y a constant? 

Is absolute value desired? 

TM 60001 60001 to output 

Is negative value desired? 

TN 60001 60001 to output 

Is there an unconditional jump? 
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Uncon¬ 


IA 

KF 

ditional 

0 

RJ 

SA2 

Jump and 

1 

TP 

KE7 

no 2nd 

2 

RP 

30005 

Test 

3 

TJ 

KF4 


4 

MJ 

2 


5 

MJ 

3 


6 

MJ 

4 


7 

MJ 

5 


10 

MJ 

6 

< 1st test 

11 

TP 

KE10 


12 

RJ 

KH40 


13 

TP 

KE11 


14 

RJ 

KH34 


15 

RJ 

KH40 


16 

RJ 

KH13 


17 

RJ 

KH7 


20 

TP 

KA3 


21 

MJ 

0 

=( 1st) 

22 

23 

TP 

RJ 

KE10 

KH40 


24 

TP 

KE14 


25 

MJ 

0 

V 1 ri + 

26 

TP 

KE15 

^ IS u 

27 

RJ 

KH40 


30 

TP 

KE16 

< 1st 

31 

MJ 

0 


32 

TP 

KE15 


33 

RJ 

KH40 


34 

TP 

KE16 


35 

RJ 

KH34 


36 

RJ 

KH40 


37 

RJ 

KH 


40 

RJ 

KH13 


41 

TP 

KA3 


42 

MJ 

0 

NOT = 

43 

TP 

KE10 

(lot) 

44 

RJ 

KH40 


45 

TP 

KE14 

>lst l _ 

46 

MJ 

0 


47 

TP 

KE10 


50 

RJ 

KH40 


51 

TP 

KE11 


52 

MJ 

0 

No uncon¬ 

53 

TP 

BK7 

ditional 

54 

ZJ 

KF55 

jump and 

55 

TP 

BK4 

a second 

56 

EJ 

KA4 

test 

57 

EJ 

KA5 

:(lst test) 

60 

TP 

KE10 


61 

RJ 

KH40 


62 

TP 

BK6 


63 

EJ 

KA4 


KF47 > ? 
KF4 

KF11 < ? 
KF22 - ?’ 
KF26 > ? 
KF32 < ? 
KF43 
NOT = ? 
GLIOO 1 
KH35 J 
GLIOO 
KH31 
KH35 
KHIO 
KH4 
GL106 
KK47 
GLIOO] 
KH35 / 
GLIOO 
KF14 
GLIOO \ 
KH35 J 
GLIOO 
KF14 
GLIOO \ 
KH35 J 
GLIOO 
KH31 
KH35 
KH4 
KHIO 
GL106 
KK47 
GLIOO1 
KH35 J 
GLIOO 
KF35 
GLIOO \ 
KH35 J 
GLIOO 
KF35 
A 1 
KK J 

A \ 
KF106 J 

KF124 

GLIOO] 

KH35 J 

A l 

KF75 J 


Puts MJ Z 0 in A where Z is code number 
for relation test 


Determining what first test is 


TP 60000 A to output 

TJ 60001 30000 

100X + 2 to v of above 
Line to output 
Unconditional test 
1st test 

2 to count of "10” lines 
To termination loop 


TP 

60000 

A to output 

EJ 

60001 

30000 

TP 

60001 

A to output 

TJ 

60000 

30000 

TP 

60001 

A to output 

TJ 

60000 

30000 


100X + 2 to v of above 
Line to output 
1st test 

Unconditional jump 
2 to count of ”10” lines 
To termination loop 

TP 60000 A to output 

EJ 60001 30000 

TP 60000 A to output 
TJ 60001 30000 

Is there a second test? 

Is 1st test =? 

Is 1st test > ? 

TP 60000 A to output 

Is 2nd test =? 
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2nd test > 

64 

TP 

KE11 

GL100 

TJ 60001 30000 


65 

RJ 

KH24 

KH21 

100X + 3 to v of above 


66 

RJ 

KH40 

KH35 

Line to output 


67 

70 

TP 

RJ 

KE21 

KH40 

GL100 \ 
KH35 / 

EJ 60001 1000 to output 


71 

RJ 

KH3 

KH 

2nd test setup 


72 

RJ 

KH7 

KH4 

1st test setup 


73 

TP 

KA3 

GL106 

2 to count of "ten" lines 

2nd test = 

74 

MJ 

0 

KK47 

To termination 

75 

TP 

KE11 

GL100 

TJ 60001 30000 


76 

RJ 

KH30 

KH25 

100X + 4 to v of above 


•7*7 

I 1 

n t 

no 

rdiHVJ 

KH35 

Line to output 


100 

TP 

KE14 

GL100 

EJ 60001 30000 


101 

RS 

GL102 

KA 

100X +4-1 


102 

TV 

GL102 

GL100 

100X + 3 to v of above instruction 


103 

RJ 

KH40 

KH35 

Line to output 


104 

TP 

KE20 

GL100 

MJ 0 1000 

= (1st 

105 

MJ 

0 

KF70 


test) 

106 

107 

TP 

RJ 

KE10 

KH40 

GL100 \ 
KH35 J 

TP 60000 A to output 


110 

TP 

BK6 

A \ 

Is 2nd test > ? 


111 

EJ 

KA5 

KF117J 

< 2. nd 

112 

TP 

KE14 

GL100 

EJ 60001 30000 

t^st: 

113 

RJ 

KH30 

KH25 

100X + 4 to v of above 


114 

RJ 

KH40 

KH35 

Line to output 


115 

TP 

KEll 

GL100 

TJ 60001 30000 

>2nd test]ll6 

MJ 

0 

KF101 



117 

TP 

KE14 

GL100 

EJ 60001 30000 


120 

RJ 

KH24 

KH21 

100X + 3 to v of above 


121 

RJ 

KH40 

KH35 

Line to output 


122 

TP 

KE22 

GL100 

TJ 60001 1000 

> 1st 

123 

MJ 

0 

KF70 


test 

124 

TP 

KE15 

GL1001 

TP 60001 A to output 

125 

RJ 

KH40 

KH35 J 


126 

TP 

BK6 

A \ 

Is 2nd test =? 

< 2nd L _ 

127 

EJ 

KA4 

KF135 j 

test 

130 

TP 

KE16 

GL100 

TJ 60000 30000 


131 

RJ 

KH24 

KH21 

100X + 3 to v of above 


132 

RJ 

KH40 

KH35 

Line to output 


133 

TP 

KE23 

GL100 

EJ 60000 1000 


134 

MJ 

0 

KF70 


= 2nd 

135 

TP 

KE16 

GL100 

TJ 60000 30000 

test 

136 

RJ 

KH30 

KH25 

100X + 4 to v of above 


137 

RJ 

KH40 

KH35 

Line to output 


140 

TP 

KE24 

GL100 

EJ 60000 30000 


141 

MJ 

0 

KF101 




CA 

KF142 





IA 

KK 



No Uncon¬ 

0 

RJ 

SA2 

SA I 

Puts MJ Z 0 in A where Z is code number 

ditional 

1 

TP 

KE7 

A J 

for relation test 

Jump & 

2 

RP 

30005 

KK43 > ? 


no Second 
Test 

3 

TJ 

KK4 

KK44 
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4 

MJ 

2 

KKll < 

? 



5 

MJ 

3 

KK23 = 

? 

•Determination of type of 1st test 


6 

MJ 

4 

KK27 ^ 

^ ? 



7 

MJ 

5 

KK33 < 

? 


<Lst test ] 

1 10 

MJ 

6 

KK37 NOT =?J 



11 

'TP 

KE10 

GL100 1 

1 TP 

60000 A to output 


12 

RJ 

KH40 

KH35 J 

1 



13 

TP 

KE11 

GL100 

TJ 

60001 30000 


14 

RJ 

KH34 

KH31 

100X + 2 to v of above 


15 

RJ 

KH40 

KH35 

Line to output 


16 

TP 

KE20 

GLlOO" 




17 

RJ 

KH40 

KH35 J 

” MJ 

0 1000 to output 


20 

RJ 

KH7 

KH4 

1st test set-up 


21 

TP 

KA 

GL106 

1 

to count of ”10” lines 

= 1st 

22 

MJ 

0 

KK47 

To 

termination loop 

test 

23 

TP 

KE10 

GL100] 

t 



24 

RJ 

KH40 

KH35 J 

y tp 

60000 A to output 


25 

TP 

KE14 

GL100 

EJ 

60001 30000 

■s ' --—- 

__26_ 

MJ 

0 

KK14 




27 

TP 

KE15 

GL100 i 

1 



30 

RJ 

KH40 

KH35 J 

TP 

60001 A to output 


31 

TP 

KE16 

GL100 

TJ 

60000 30000 

_ 

32 

MJ 

0 

KK14 



- 

33 

TP 

KE15 

GLlOO] 

I 



34 

RJ 

KH40 

KH35 J 

p TP 

60001 A to output 


35 

TP 

KE13 

GL100 

TJ 

60000 1000 

NOT =~L 

36 

MJ 

0 

KK17 




37 

TP 

KE10 

GLlOO] 




40 

RJ 

KH40 

KH35 J 

p TP 

60000 A to output 


41 

TP 

KE21 

GL100 

EJ 

60001 1000 

>"—-_ 

42 

MJ 

0 

KK17 



— 

43 

TP 

KE10 

GL100] 

1 



44 

RJ 

KH40 

KH35 J 

p TP 

60000 A to output 


45 

TP 

KE22 

GL100 

TJ 

60001 1000 


46 

MJ 

0 

KK17 



Termi¬ 

47 

SP 

BK3 

17 1 

l Sentence call word to u of 1st line of Op 

nation 

50 

TU 

A 

KH57 J 

File 

Loop 

51 

TP 

A 

GL 

Call word to u of 1st line of prelude 


52 

TP 

GL103 

A 1 




53 

ZJ 

KK54 

KK64 J 

r Is 

number of relative const, equal to zero? 


54 

EJ 

KA 

KK62 

Is 

number of rel. cons, equal to 1? 

No. of 

55 

TP 

GL104 

GLlOO* 



rel. cons. 

, 56 

RJ 

KH40 

KH35 

I Relative constant call words put at end of 

= 2 

57 

TP 

GL105 

GLlOO 

1" generated program. Numbers were equated 


60 

RJ 

KH40 

KH35 

to 10000 and 10001 in coding 


61 

MJ 

0 

KK64 




62 

TP 

GL104 

GLlOO] 

l 



63 

RJ 

KH40 

KH35 J 

p Call word oi no.equated to 10000 put at end 


64 

TP 

GL101 

A 

Ordinal 100X program line to A 


65 

ST 

KA2 

GL1 

Subtracting 1000 and putting in GL1 


66 

TV 

A 

GL 

100X-1000 to GL V 


67 

ST 

GL106 

A 1 

L 100X-1000-number of "ten” lines + 2 to 2nd 


70 

AT 

KA3 

KH60 j 


line of Op File 
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71 

RA 

GL 

KA13 

100X - 1000 4- 6 to v of prelude 1st line 


72 

TP 

GL101 

A 



73 

ST 

GL106 

A 

_ 100X - number of "ten" lines 4- 3 to v of 

1st line of running program 


74 

AT 

KA4 

A 


75 

TV 

A 

GL6 _ 



76 

77 

TP 

RJ 

KK103 

OP 

0P1 1 

0P2 J 

^ Writing Op File and gen. routines on tape 


100 

MJ 

0 

KB 



101 

0 

0 

GL6 



102 

0 

0 

KH61 



103 

0 

GL 

KH57 




CA 

KK104 





IA 

KC 



Sub¬ 

0 

MJ 

0 

30000 


scripted 

1 

EJ 

KA 

KC53 

Are no. of subscripts 1? 

Variable 

2 

EJ 

KA3 

KC45 

Are no. of subscripts 2? 

Coding 

3 

EJ 

KA4 

KC37 

Are no. of subscripts 3? 

Number of 

4 

TP 

KE25 

GL100 

SP 30000 0 

subscripts 

5 

SP 

GL112 

17 1 

L Call word of L subscript to above line. Sub- 

are 4 

6 

TU 

A 

GL100J 

1 scripts assumed to be I,J,K f L 


7 

RJ 

KH40 

KH35 

Line to output 


10 

TP 

KE26 

GL100 

MA 30000 30000 


11 

TU 

GL111 

GL100 

K/vj-> u of above line 


12 

TV 

GL111 

GL100 

K -> v of above 


13 

RJ 

KH40 

KH35 

Line to output 


14 

TU 

GL110 

GL100 

J K to u of MA 30000 30000 


15 

TV 

GL110 

GL100 

J to v of above 


16 

RJ 

KH40 

KH35 

Line to output 


17 

TU 

GL107 

GL100 

IM to u of MA 30000 30000 


20 

TV 

GL107 

GL100 

I to v of above 


21 

RJ 

KH40 

KH35 

Line to output 


22 

23 

TP 

TV 

KE27 

GL101 

GL100 
GL100 1 

TJ Mod. 30000 
^ 100X 4 2 to v of above 


24 

RA 

GL100 

KA3 J 


25 

RJ 

KH40 

KH35 

Line to output 


26 

TP 

KE30 

GL100 1 

^ DV Mod. q to output 


27 

RJ 

KH40 

KH35 J 


30 

TP 

KE31 

GL100 1 

l SA CW 17 to output. CW is call word of 


31 

RJ 

KH40 

KH35 J 

1 address of line that will hold address of 

1st line of array 


32 

RJ 

KR4 

KR 

TU A NI to output. NI means Next Instr. 


33 

MJ 

0 

KC 



34 

0 

62000 

0 

Stored constant used to identify dummy 






pseudo op functions 


35 

RJ 

KD56 

KD53 

TU 61- NI to output 

3 sub- 

36 

MJ 

0 

KB 105 

Return to finish handling variable Y 

scripts 

37 

TP 

KE25 

GL100 

SP 30000 0 


40 

41 

SP 

TU 

GL111 

A 

17 

GL100 . 

j* K subscript call word to u of above 


42 

RJ 

KH40 

KH35 

Line to output 
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43 

TP 

KE26 

GL100 

2 sub- 

i 

44 

MJ 

0 

KC14 

scripts 

45 

TP 

KE25 

GL100 



46 

SP 

GL110 

17 



47 

TU 

A 

GL100 



50 

RJ 

KH40 

KH35 



51 

TP 

KE26 

GL100 

1 sub¬ 

1 _ 

52 

_MJ 

0 

KC17 

script 


53 

TP 

KE25 

GL100 



54 

SP 

GL107 

17 



55 

TU 

A 

GL100 



56 

MJ 

0 

KC21 




CA 

KC57 



MA 30000 30000 to output line 

SP 30000 0 

J subscript call word to u of above 
Line to output 

MA 30000 30000 to output line 

SP 30000 0 

I call word to u of above 


Subsidiary Subroutines 


2nd test 


TA 

line no. 

0 

TP 

subroutine 

! 1 

TP 


2 

RJ 


3 

MJ 

1st test 

f 4 

TP 

line no. 

1 5 

TP 

subroutine 

6 

RJ 

Uncon- 

L.7 

MJ 

ditional l 

:io 

• Tp 

jump line 

hi 

TP 

no. sub¬ 

12 

RJ 

routine 

J3 

MJ 

Subscripted 

[14 

RJ 

var. call 

15 

RA 

word to 



Op. File 

U6 

MJ 


17 

RJ 


20 

MJ 


"21 

TP 

+3 Jump J 

22 

RA 

setter / 




23 

TV 

\ 

.24 

MJ 

+4 Jump ( 

25 

TP 

setter j 

26 

RA 


27 

TV 

l 

o30 

MJ 

+ 2 Jump t 

"31 

TP 

setter 

| 32 

RA 

1 

33 

TV 

l 

J34 

MJ 

Subroutine 

35 

TP 

to put 



line in 

36 

RA 

output 

37 

RA 


40 

MJ 


KH 

KE 

GL100 

MJ 0 30000 to output line 

BK7 

A 

Line number of 2nd test to A 

KH56 

KH45 

Getting call word for line number, putting 

0 

30000 

it in Op File, putting it in output 
and putting 10 line in output 

KE 

GL100 

MJ 0 30000 

BK5 

A 

Line number 1st test to A 

KH56 

KH45 

Line number call word subroutine 

0 

30000 


KE 

GL100 

MJ 0 30000 

BKlO 

A 

Line no. of unconditional jump to A 

KH56 

KH45 

Line number call word subroutine 

0 

30000 


KH44 

KH41 

Call word sent to Op File 

GL2 

KA2 

UpS count of relative constants used in 

0 

30000 

prelude 

KD56 

KD53 

TU 61- NI to output 

0 

KB34 

Return to finish handling variable X 

GL101 

GL102 

(1000 + count of lines) to GL102 

GL102 

KA4 

+ 3 

GL102 

GL100 

v of GL100 set to 100X + 3 

0 

30000 


GL101 

GL102 ' 


GL102 

KA5 

h 100X + 4 to v of output line 

GL102 

GL100 

0 

30000 . 


GL101 

GL102 ' 


GL102 

KA3 

” 100X + 2 to v of output line 

GL102 

GL100 

0 

30000 j 


GL100 

[GL6] 

Inserting output line in proper place in 

KH35 

KA 

generated coding 

Upping v of KH35 by 1 

GL101 

KA 

Count of 1000 plus number of lines 

0 

30000 
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Loads Op ( 

"41 

TP 

A 

[KH6l] 

File ) 

42 

RA 

KH41 

KA 

for call | 

43 

RA 

KH57 

KA 

word i 

J4 

MJ 

0 

30000 

Line 1 

r 45 

RJ 

LW 

LW 1 

number 

46 

TV 

Q 

GL100 

call word 

47 

RJ 

KH44 

KH41 

subroutine 

50 

SP 

0 

17 

< 

51 

TP 

BK33 

0 


52 

RJ 

KI 

KIl 

l 

53 

RJ 

KH40 

KH35 

l 

1 

54 

TP 

KEI7 

GL100 

1 

55 

RJ 

KH40 

KH35 

Op FileQ 

J56 

MJ 

0 

30000 

build-up 


0 

30000 

2 

space 

60 

0 

0 

0 


61 

0 

0 

0 


62 

0 

0 

0 


63 

0 

0 

0 


64 

0 

0 

0 


65 

0 

0 

0 



CA 

KH66 




IA 

KA 


Constants 

0 

0 

0 

1 


1 

0 

0 

0 


2 

0 

0 

1000 


3 

0 

0 

2 


4 

0 

0 

3 


5 

0 

0 

4 


6 

0 

0 

77777 


7 

0 

77777 

0 


10 

0 

77000 

0 


11 

0 

10000 

0 


12 

0 

10001 

0 


13 

0 

0 

6 



CA 

KA14 




IA 

KE 


Dummy 

0 

MJ 

0 

30000 

Instruc¬ 

1 

TP 

30000 

60000 

tions for 

2 

TP 

30000 

60001 

Use in 

3 

TM 

60000 

60000 

Building 

4 

TN 

60000 

60000 

Generated 

5 

TM 

60001 

60001 

Routine 

6 

TN 

60001 

60001 


7 

MJ 

0 

0 


10 

TP 

60000 

A 


11 

TJ 

60001 

30000 


12 

0 

20000 

0 


13 

TJ 

60000 

1000 


14 

EJ 

60001 

30000 


15 

TP 

60001 

A 


Loads Op File with call word 

Ups v of above by 1 

Increases count of Op File lines by 1 

Getting call word of line number 
Call word to v of output line 
Call word to Op File 
Call word of line no. to A u 
Puts Pseudo-Op indicator in Q 
Check for illegal line numbers 
Line to output 

10 0 1 to output 
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16 

TJ 

60000 

30000 

17 

10 

0 

1 

20 

MJ 

0 

1000 

21 

EJ 

60001 

1000 

22 

TJ 

60001 

1000 

23 

EJ 

60000 

1000 

24 

EJ 

60000 

30000 

25 

SP 

30000 

0 

26 

MA 

30000 

30000 

27 

TJ 

30000 

30000 

30 

DV 

30000 

Q 

31 

SA 

30000 

17 

32 

TU 

A 

30000 


CA 

KE33 



IA 

SA 


0 

SP 

BK4 

17 1 Puts 1st test code relation number in A 

1 

TU 

A 

KE7 J and then in KE7 U . 

2 

MJ 

0 

30000 


CA 

SA3 



IA 

KR 


f° 

TP 

KE32 

GL100 TU A 30000 

Subroutine 1 

TV 

GL101 

GL100 1 100X + 1 to v of above 

to put < 2 

RA 

GL100 

KA J 

TU-A-NI 3 

RJ 

KH40 

KH35 Line to output 

in output l_4 

MJ 

0 

30000 

5 

SP 

BK14 

17 1 Is call word of variable X a dummy function 

6 

TJ 

KC34 

KH17 J of pseudo op? 

7 

MJ 

0 

KB41 

10 

SP 

BK24 

17 \ Is call word of variable Y a dummy function 

11 

TJ 

KC34 

KC35 J of pseudo op? 

12 

MJ 

0 

KB112 


CA 

KR13 
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Print Generation Routine 


It is assumed that everything following PRINT# in this instruction is to 
be printed. Thus, parentheses are included in the print-out. Since the printed 
data is generally self-explanatory comments following a print instruction are 
assumed redundant. If they are included, the routine will include them in the 
printed output. 

It is further assumed that any one Print instruction is no longer than 6 
Unityper lines. Material that would fill more space than this should be divided 
into as many instructions as needed to bring each within the proper limit. 

The first line of the string-out contains the number of lines in the string- 
out. In the second line is the line number of the instruction. The third 
contains the title, PRINT. The v portion of the fourth line holds the call 
word assigned to the instruction. The fifth and succeeding lines contain the 
excess-three characters which will be converted to Flex code during generation. 

Excess-three codes are converted by the routine to Flex codes which are 
stored for later printing during the Object Program run. A library routine 
is referenced during this run to effect the printing. Because the library 
routine to print Flex code directly is much shorter than a library routine 
that could print directly from excess three, this procedure of converting 
from excess-three to Flex code during generation was adopted. Space saving 
during the Object Program run was considered of paramount importance. 

GL, the region in which the print subroutine is stored before writing on 
tape, has to have at its disposal a variable address length that will hold the 
22g-address print subroutine and prelude plus the indeterminate group of Flex 
codes. The Flex codes, because of the addition of shift-up and shift-down 
codes and substitution of more than one Flex code for a corresponding excess- 
three character, will likely take up more space than the group of excess-three 
lines in BK. GL cannot exceed 520g lines and in most cases will be far less. 

The size of the Op File 1 item for PRINT is 3 addresses. The generated sub¬ 
routine is 22 q + number of words of Flex code. The number of words in the 
running program is 12 Q -I- number of words of Flex code. 
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After the instruction in BK, the buffer region, has been identified during 
generation as PRINT, the control generation routine by instruction RJ UR UR1 
activates the print generator. The print routine generates the coding needed 
for the print subroutine and gets it written on the proper tape. Also stored 
in NP for later writing on tape is the Op File 1 item. 
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Flow Chart of Print Generation Routine 



Prepare object pro¬ 
gram jump exit to 
2nd line of Sue¬ 
'S- ceeding sentence 
of object program 


_ A _ 

Get call word for 
carriage return 
(45) and insert 
in generated 
routine 














Print Generation 


Regions 

RE UR2512 Print generator 

RE GL5360 Storage for generated subroutine plus 

prelude 


Generation Subroutine Regions are also needed to assemble this tape. 



Print Generation 


Op File 
1 Item 



T A 

±H 

nn 

UI\ 


0 

MJ 

0 

30000 

1 

TP 

BK 

A 

2 

RS 

A 

UR75 

3 

TV 

A 

UR50 

4 

TP 

UR50 

VX4 

5 

TP 

UR51 

VX3 

6 

RJ 

VX2 

VX 

7 

• 

TP 

± L 


fir on 

yj 

10 

TU 

UR76 

GL20 

11 

TV 

GL20 

UR106 

12 

RA 

UR106 

UR 77 

13 

TV 

UR 106 

UR65 

14 

TV 

UR 106 

UR63 

15 

RA 

UR63 

UR 100 

16 

SP 

UR106 

17 

17 

AT 

UR106 

GL21 

20 

TP 

UR101 

A 

21 

RJ 

CW 

CW1 

22 

TV 

Q 

UR64 

23 

TP 

UR 102 

A 

24 

RJ 

CW 

CW1 

25 

TU 

A 

UR65 

26 

SP 

BK3 

17 

27 

TU 

A 

UR52 

30 

TU 

A 

UR55 

31 

TV 

GL20 

UR53 

32 

RA 

UR53 

UR 103 

33 

TP 

UR54 

A 

34 

RJ 

LS 

LSI 

35 

TP 

UR 104 

UR 56 

36 

TV 

GL20 

UR57 

37 

TP 

BKl 

UR62 

40 

TV 

GL20 

UR55 

41 

RA 

UR55 

UR 105 

42 

RP 

30020 

UR44 

43 

TP 

UR55 

GL 

44 

TP 

UR47 

0P1 

45 

RJ 

OP 

0P2 

46 

MJ 

0 

UR 

47 

0 

GL 

UR 52 

50 

0 

BK4 

0 

51 

0 

GL22 

0 

52 

0 

30000 

3 

53 

0 

0 

30000 

54 

0 

50002 

0 


} 


Exit 

Entry. No. of lines of input a 

No. of words of excess 3 to parameter line 


Parameter words to X3 to Flex code routine 


Jump to X3 to Flex code routine 
Output parameter line from X3 to Flex ( 
Changing u to address relative to 1000 


Computing and putting temporary storage 
address in running program where needed 


Preparing jump exit of running program to 
2nd line of succeeding subroutine 
Temp storage address in u and v sent to 
region accumulating subroutine, later to 
be used as a parameter in print tag rtne. 


Getting call word for carriage return Flex 

codq 

Inserting call word lor carriage return in 
program 


Getting call word for index 117 


Call word to running program 


Call word of statement to 1st line of Op 
File 

Computing & putting no. of lines in running 
program, including temporaries, into Op 
File 

Putting call word for print tag rtne. into 
LN, so this routine will be available in 
the library 

No. address modification lines to prelude 

Number unmodifiable constants to prelude 

Line no. to prelude 

Computing & putting proper number in v 
of prelude 1st line 

Prelude & 1st line of running program to 
assembly region 

Transferring Op File & subroutine to Op 
File from where it will go on tape later 

Exit to 1st line 

Parameter line for Op control routine 

Parameter lines for X3 to Flex code 

u = call word of print statement 

v = no. lines, running program, including 
temporaries 

Call word for print tag routine 
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GL 0 

r 55 

0 

30000 

30000 

u = Call word of print statement, v = # 






lines prelude & routine 

1 

56 

0 

0 

30000 

v = number lines subject to address modi¬ 

< 





fication 

2 

57 

0 

0 

0 

v = number of unmodifiable constants 

Pre- o 

60 

0 

0 

0 


lude ^ 

61 

0 

0 

0 


5 

L 62 

0 

0 

0 

Line number 

6 

r 63 

MJ 

0 

30000 

Exit - 1st line of running program 

7 

64 

PR 

0 

30000 

v = 1 (45) 

D 10 

R U n- n 

65 

66 

TP 

TP 

30000 

01007 

30000 
50002 1 

u = 1 (117) v = temp, storage address 

ni ng 

67 

10 

0 

3 

„ Parameter lines to Print Tag Routine 

Pro-13 ' 

70 

TP 

01010 

50002 


gram 14 

71 

10 

0 

4 


15 

72 

RJ 

50002 

50002 

Jump to print tag routine 

16 

73 

10 

2 

0 


17 

_ 74 

MJ 

0 

1000 

Jump back to first line of running program 

20 

75 

0 

0 

4 


21 

76 

0 

1011 

0 



77 

0 

0 

1011 



100 

0 

0 

2 



101 

0 

0 

45 



102 

0 

0 

117 



103 

0 

0 

12 



104 

0 

0 

14 



105 

0 

0 

22 



106 

0 

0 

30000 




CA 

UR107 
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Compute Generation Routine 


This routine forms a code that sets up data in the proper location for 
the equation coding, followed by a return .jump to this part. All the actual 
computational coding is done by the equation generation routine. 


The string-out input to the Compute Generator contains the call words 
of the variables or constants in the same sequence in which they appear in the 
input sentences. Subscripted variables have multipliers and moduli saved 
in addition to their call words. Thus one subscripted variable occupies 
2, 3 or 4 locations, depending on how many subscripts it has, and the sub¬ 
script call words follow thereafter. Functions within pseudo operations have 
only the call word of the function in the string-out and no argument call 
words, even though the arguments may be stated in the input sentence. At the 
end of every string-out is a line of zeros followed by 01 227-7 (the XS3 
representation of A.). When a compute sentence contains several terms 
separated by "andV* in the input sentence, the string-out has a zero line 
inserted between the last call word of one term and the first call word of the 
following term. 


The Compute Generator builds up Operation File I, prelude, running program 
and file of relative constants from this data. The first line of the generated 
coding - the exit line - is an MJ to the line that follows second after the 
last generated line. The last line of the running code is an MJ to the exit 
line. After this follows a list of generated relative constants. 


For terms that are not inside parentheses in the input sentence (that is, 
for the first string-out call word and those following zero lines) the routine 
generates: 

1) In most cases (call-word types 66,65,64,4) 

RJ 25- 25- RJ 4- 4- 

or 

10 00000 00001 10 00000 00001 


2) For subscripted variables (call-word type 77) 


TP 

64- 

62000 ' 

TP 

64- 

62001 

TP 

• -frjt——. 

62002 

TP 

64- 

62003 . 

RJ 

24- 

24- 

10 

00000 

0001 


1,2,3 or 4 of those 1 ines 
depending on how many subscripts 
the subscripted variable has. 
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3) And for dummy functions (call-word type 61) 

TU Call word + 1 a 

TV Call word + 1 a 

RA a Call word of constant 1 

a RJ [3000(2 [300002 


The terms that are inside parentheses in the input sentence precede the 
code of the RJ line and ten line of their respective symbol. Their handling 
splits into two groups: those that are within or are input parameters to a 
pseudo operation, and those that are not. 

To set up input parameters for reference to a pseudo operation the routine 
generates: 

4) For functions (call-word type 66) 



6) For all others (call-word types 64, 65 or 67) 

TP Call word 63- running code 

For terms within parentheses of a function or a subscripted variable 
but not within a pseudo operation the routine generates: 
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7) For subscripted variables (call-word 


s 

00 

Call word 

Call word 


TP 

s 

75- 


TP 

modulus 

62- 

(for 77 

00 

Call word 

00000 


only) 

8) For all others (Call-word types 63 r 
TP Call word 62- 


types 76 or 77) 

relative constants 
running code 

OP File I (this does not apply for 
Call-word type 76) 

,65 or 67) 
running code 
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Flow Chart of Compute Generation Routine 


LA 7 LA 11 LA 13 
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LA33 LA30 LA31 L32 
















1056 


Changed exit of zero string, word 

LA 113 LA 134 









LA100 
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LA53 
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Subroutines 


Generate and place 

0 CW CW 

TP addr. [0OOOO + no* of locate 

of CW 1 . n o ... 

first 2 or 3 bits 

filled by the dif¬ 
ferent entries 

adv. addresses, check 

exceeded regions and jump 
to get next stringout word 

III 

Handle 77 CW cases with dif¬ 
ferent entries for inside 
and outside pseudo operation, 
and jump to get next string¬ 
out word 

V 

When zero stringout word, 
place RJ CW CW (wgs put 

aside by II) and clear both 
"insides” and adv. resp. 
clear counters and go to 
get next stringout word 






Generate and put aside 

RJ CW CW 

10 0 1 

Advance index "inside some¬ 
thing” and jump to get next 
String, word 

IV 

Generate and place TP CW 

62_ + no* of location 

Restore subrout, and advance 
counters with exceeded reg. 
check. Only used in RJ 
by III and @ 

VI 

Check whether CW is already 
in OP File I. When not, 
place it there and adv. 
with exceed, region check 
Only used in RJ by V 









Compute Generator 
Regions 


RE 

LA2512 

Main program 





RE 

LB2710 

Subroutines 





RE 

LC3117 

Constants 





RE 

LJ3172 

Checks for exceeded regions 



RE 

LK3213 

Alarm print 





RE 

L03217 

Alarm (> region LF) 




RE 

LS3230 

Alarm (> 1777) 





RE 

LT3241 

Alarm (> region LE) 




RE 

LV3251 

Alarm (> region LI) 




RE 

LP2000 

Constant for last 

addr. + 

1 of 

exit 


RE 

LQ5360 

Constant for last 

addr. + 

1 of 

region 

LF 

RE 

LR6777 

Constant for last 

addr. + 

1 of 

region 

LE 

RE 

LU7777 

Constant for last 

addr. + 

1 of 

region 


RE 

LD3263 

Temporaries 

LI 

should always 

RE 

LE5360 

Generated coding 

"(follow 

LE so that in 

RE 

LI7000 

Storage for constants Jthe 

end 

when adding 

RE 

LF3300 

Op File I 

the 

generated 

con- 


stants to LE the re¬ 
gion never can be ex- 


RE 

CW1211 1 

ceeded 

RE 

BK2242 


RE 

OP1047 


RE 

WA653 

K Generation subroutines used 

RE 

UP421 


RE 

BQ632 


RE 

WB677 
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© 

© 







IA 

LA 

0 

MJ 

0 

1 

RP 

10014 

2 

TP 

LC 

3 

RP 

10005 

4 

TP 

LC 

5 

10 

0 

6 

SP 

BK3 

7 

TP 

A 

10 

TP 

A 

11 

TP 

BKl 

12 

TP 

LC20 

13 

TV 

LC6 

14 

TP 

LA5 

15 

TP 

LC2 

16 

TP 

LC22 

17 

RA 

LA20 

20 

TP 

BK3 

21 

TP 

LD6 

22 

EJ 

LC 

23 

EJ 

LC7 

24 

TP 

LC 

25 

TJ 

LD 

26 

TP 

LD6 

27 

QT 

LC23 

30 

EJ 

LC23 

31 

EJ 

LC17 

32 

TJ 

LC15 

33 

RJ 

LB36 


34 

MJ 

0 

35 

TP 

LC2 

36 

RJ 

LB36 

37 

MJ 

0 

40 

RJ 

LB36 

41 

MJ 

0 

42 

TP 

LD6 

43 

TV 

LC34 

44 

TP 

LC2 

45 

MJ 

0 

46 

TJ 

LD1 

47 

TP 

LD6 

50 

QT 

LC23 

51 

EJ 

LC23 

52 

EJ 

LC10 

53 

RJ 

LB133 

54 

MJ 

0 


30000 
LA3 1 
LD J 
LA6 
LE 
1 

17 
LE 
LF 
LE5 
LE6 
LD3 ' 
LD14 
LD5 [ 
LD4 J 
LC1 \ 
LD6 J 
A 

LB 144 
LB173 

A 1 
LA46 J 

Q 

LD7 

LA40 

LA42 

LA35 

LB42 


LAI 7 

LD1 

LB32 

LA17 

LB37 

LB176 

LD13 

LA22 

LD 

LA17 

LA74 

0 1 
LD7 J 

LA55 

LA60 

LB116 

LA17 


Exit 

Clear temporaries 

Clear space for prelude 
Const, used by LA14 

Place sent. CW in prelude and Op File I 

Place XS3 code of line number in Op File I 
Prepare exit line in prelude 


Set starting value in temporaries 


(Pre-advanced) bring next string-out word 
in storage LD6 and to A 

Is it zero? 

Is itA.? 


Are we inside something? 


Put string-out word —>Q 

Mask out operation code into LD7 and A 

CW type 77? 

CW type 61? 

CW type 4? 

Left only CW type 64, 65, 66; jump to set 
aside RJ CW CW 
10 0 1 


Go to get next string-out word 
Set index "inside pseudo operation 
Jump to set aside RJ CW CW V CW4 

10 0 1 

Go to get next string-out word 

t * ♦ RJ CW CW rw __ 

Jump to set aside jo 0 1 ^W77 


Jump to handle 77 CW 

Save CW 61-in LD13 v address 

Change exit for zero string-out word to 


LA113 

Set "inside something" to 1 
Jump to get next string-out word 
Are we inside pseudo? Yes —> LA74 
In parent, but not inside pseudo: 

mask out Operation Code 
CW type 77? 

CW type 76? 

Left only type 63, 64, 65 or 67:go 
generating with 62... 


fCW61 


inside 

some¬ 

thing 
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<ty 




55 

RJ 

LB14 

LB21 

RJ to gener. and placing ' 







0 CW CW 

TP Addr.75- 







of CW 


CW Type 77 

56 

RJ 

LB143 

LB 134 

RJ to taking care of Op 


(not inside 





File I 


pseudo) 

57 

MJ 

0 

LB112 

Jump to handle subscr. 







var. case 



60 

RJ 

LB133 

LB167 

RJ to gener. and placing 







0 CW CW 

TP Addr. 75- 







of CW 



61 

62 

TP 

QT 

LC21 

LD6 

Q 1 

LD10 J 

- Mask out bit # of subscript; 

5 


63 

LQ 

LD10 

36 

# of subscr. in v of ID 10 



64 

65 

TP 

QT 

1X46 

LD6 

Q 1 

A J 

1* Prepare to get next string- 


CW type 76 


out word 


(no— never I — 

66 

AT 

LC15 

LD6 

Bring CW-1 of first sub¬ 


inside Pseudo- 





script in storage LD6 


Op) 

67 

MJ 

0 

LA70 

Space filling jump (free) 


70 

RA 

LD6 

LC2 

Up date CW 



71 

RJ 

LB 133 

LB116 

Jump to generate and place 







TP CCWJ 62...+ # of locat. 



72 

IJ 

LD10 

LA 73 

IJ on # of subscr. 

1 

Subscr. -1 

73 

ZJ 

LA70 

LA17 

Jump to get next string. 

i 

i 

- (zero jump 





word 

j 

needed since 







index by 1 too 
high) 

74 

75 

TP 

QT 

LD6 

LC23 

Q 1 

LD7 J 

^ Operat. code — ► A and LD7 



76 

EJ 

LC23 

LA 102 

CW type 77? 


In parenthe¬ 

77 

EJ 

LC12 

LA 105 

CW type 66? 

► 

ses inside 

100 

RJ 

LB133 

LB 160 

Left only CW type 64, 65, 


pseudo op. 





or 67 



101 

MJ 

0 

LA17 

Go to get next string, word. 



102 

RJ 

LB 14 

LB23 

RJ to gener. and place 

1 






0 CW CW 

TP Addr. 76X... 

lew type 77 in- 





of CW 


side pseudo 

103 

RJ 

LB143 

LB 134 

RJ to take care of Op File ’ 

I 


104 

MJ 

0 

LB114 

Jump to handle subscr. 







var. case 



105 

RJ 

LB14 

LB15 

RJ to gener. and place 







0 CW CW 

TP Addr. 61... 







of CW 



106 

TP 

LC23 

Q ~ 

Put mask for CW code—Q 
. Change CW in LD6 to sent. 







CW25... 



107 

QS 

1X14 

LD6 - 


- 

CW type 66 

110 

RJ 

LB14 

LB15 

RJ to gener. and place 


inside pseudo 


0 c w cw 

TP Addr. 61... 
of CW 
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111 

RJ 

LB143 

LB 134 

112 

MJ 

0 

LA 17 

113 

RA 

rnn 

ULf i U 

LC2 

114 

SP 

LD13 

17 

115 

TU 

A 

LC30 

116 

TU 

A 

LC31 

117 

TP 

LC24 

A 

120 

AT 

LD5 

A 

121 

TV 

A 

LC30 

122 

TV 

A 

LC31 

123 

MJ 

0 

LA 167 

124 

RP 

30004 

LA126 

125 

TP 

LC30 

30000 

126 

TV 

LC36 

LA22 

127 

RA 

LD5 

LC5 

130 

RJ 

LJ12 

LJ7 

131 

RP 

10003 

LA133 

132 

TP 

LC 

LD 

133 

MJ 

0 

LA17 

134 

TV 

LD3 

LE 

135 

RS 

LE 

LC37 

136 

TV 

LE 

LEI 

137 

RS 

LEI 

LC43 

140 

RS 

LD4 

LC22 

141 

TV 

LD4 

LE2 

142 

L0 

LE2 

11 

143 

RS 

LB140 

LC42 

144 

TV 

A 

LF 

145 

RA 

LE6 

LD5 

146 

RA 

LE6 

LC2 

147 

ST 

LC20 

LF1 

150 

RS 

LF1 

LC2 

151 

SP 

LE2 

6 

152 

AT 

LA 162 

LA 162 

153 

TV 

LE 

LA163 

154 

RA 

LA163 

LC37 

155 

LQ 

LE2 

Q33 

156 

RA 

LE 

0 

157 

RA 

LEI 

Q 

160 

RA 

LF1 

0 

161 

RA 

LE6 

Q 

162 

RP 

30000 

LJ 

163 

TP 

LI 

30000 

164 

TP 

LC44 

OPl 

165 

RJ 

OP 

0P2 

166 

MJ 

0 

LA 


} 


} 

} 


} 

} 


RJ to take care of Op 
File I 

Jump to get reset string- 
out word 


Adv. CW by 1 
Move CW + 1 to u addr. 


Place CW in u of 


[ ] [ ] 

L3CI1 

n ■ „ 1AAOH . - form excl. 10 lines 

Put 1003 in v of A V „ next ad(jr> + 2 „, 


TU 

TV 


n|er. coding 


J 


Add # of addr. in get 
excl, 10 lines 
Place "next addr. r^+ 2'* ^excl. 10 
lines) in v of TV c it i 
Place "next addr." (incl. 

10 lines) in RP command 


Case 

CW 

61.., 


Place 4 rows of generated coding 

Restore exit of case zero 
string, word 


Adv. counters resp. clear 
s of locat. rel. 100 and 
both insides 


Fill v of LE (LE7+...)-LE 
Fill v of LEI 

(LE7 +*..) - LE -6 (6 is prelude 
coding) 

Fill v of LE2 


Fill v of LF 
Fill v of LE6 

(second addr. of next routine) 
Fill v of LF1 
(LE6-LC20) 


I Go to 
I end 


Prepare moving of generated 
constants 


Add constants to # of generated 
addresses 

Move constants to end of coding 


Bring generated coding to tape 
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167 

SP 

LC30 

17 

Come from LA123 

Patch for generating 

170 

TU 

A 

LC32 


RA addr. 1 

171 

TP 

LC2 

A 1 



172 

RJ 

cw 

CW1 j 

Get a CW for const. 1 


173 

TV 

0 

LC32 



174 

TV 

ID 3 

LA125 



175 

MJ 

0 

LA124 

Jump back to coding 



CA 

LA 176 







IA 

LB 



I 

0 

SP 

LD6 

17 



1 

AT 

LD6 

LI 

y Form 0 CW CW in next storage addr. 


2 

TU 

A 

LC36 

save CW in u in LX36 (used by LB135 in VI) 


3 

MJ 

0 

LJ15 , 



4 

TU 

LD4 

LC26 ' 

Generate 


5 

RA 

LC26 

LD2 

„ TP 01... CW F * of locat. and place it 


6 

TV 

LD3 

LB7 

for gener. const. 0 CW CW 


7 

TP 

LC26 

30000 . 

for gener. code TP 01...CW +- #loc. 


10 

RA 

LD2 

LC2 


11 

RJ 

LJ12 

LJ11 

► 


12 

RA 

LD4 

1X27 

Advance counters 


13 

RA 

LD5 

LC2 . 


I exit 

14 

MJ 

0 

30000 


X 61 

15 

TV 

LC17 

LC26 

Put 61000 in v of LC26 

16 

MJ 

0 

LB 


X 62 

17 

TV 

LC16 

LC26 

Put 62000 in v of LC26 

20 

MJ 

0 

LB 


X 75 

21 

TV 

LC11 

LC26 

Put 75000 in v of 1X26 

22 

MJ 

0 

LB 


1 76 

X 

23 

TU 

LA20 

LB25 ] 

l Get next string-out word (in advance, 

24 

RA 

LB25 

LCl 


25 

TP 

3Q000 

LD7 J 

j not yet officially) into LD7 


26 

SP 

LD7 

6 

Shift # of subscripts 9. n bits to the left 

1 iU 


27 

TV 

A 

LC26 1 


30 

RA 

LC26 

LC10 J 

f Put 76X000 in v of LC26 


31 

MJ 

0 

LB 


II 

32 

SP 

LD6 

17 1 

1 Form RJ CW CW \ J . 


33 

AT 

LD6 

A j 

1 10 0 1 J an( * Set 11 aslcie 


34 

AT 

LC35 

LD13 J 

1 


35 

TP 

LC2 

LD 

Set index "inside something" to 1 

II exit 

36 

MJ 

0 

30000 

Only used in RJ 

CM 

1—1 

37 

TP 

LC23 

Q 1 

1 

40 

QS 

LC13 

LD6 

r Make 24...CW before going to II 


41 

MJ 

0 

LB32 J 

1—I 
(—1 
ro 
cn 

42 

TP 

LC23 

Q 


43 

QS 

LC14 

LD6 

r Make 25...CW before going to II 


44 

MJ 

0 

LB32 J 

III 

45 

RP 

10004 

LB47 1 

^ Clear temp, storage Handl. of subscr. var, 


46 

TP 

LC 

LD7 J 


47 

RJ 

LB111 

LB106 

Get next string-out word—>A 


50 

TU 

A 

LD10 

Modulus —=> u of LD10 
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Ill 


III 


62 


63 


IV 


16 


IV 

IV 


62 


IV 


63 


IV 

VI 


exit 


51 

TV 

A 

LD7 1 

^ # of subscr. -1—> v of LD7 


52 

RS 

LD7 

LC2 J 


53 

SP 

LD10 

71 1 

^ Get const. CW for mod. 


54 

RJ 

CW 

CW1 J 


55 

TP 

A 

LD10 

CW for mod.—>u of LD10 


56 

IJ 

LD7 

LB60 

First IJ on # of subscripts 


57 

MJ 

0 

LB 103 



60 

RJ 

LB111 

LB 106 

Get next string-out word->A 


61 

TU 

A 

LD12 

Store multiplier 2 in LDl2(u) 


62 

TV 

A 

LD11 

Store multiplier 1 in LDll(v) 


63 

64 

TP 

RJ 

LD11 

CW 

A 1 

CWl J 

\ Get CW for multiplier 1 

62... 

63...#of 

locat. 

65 

TU 

A 

LC26 1 

1 Generate and place TP [CW mult, l] 

66 

RJ 

LB133 

LB121 J 

i for multipl. 1 

67 

IJ 

LD7 

LB71 

Second IJ on # of subscr. 

70 

MJ 

0 

LB103 



71 

72 

SP 

RJ 

LD12 

CW 

71 1 

CWl J 

[■ Get const. CW for mult. 2 


73 

74 

TU 

RJ 

A 

LB133 

LC26 1 
LB121 J 

^ Generate and place TP [CW mult. 2] 

62... 
63...# of 

75 

IJ 

LD7 

LB77 

Third IJ on # of subscr. 

locat. 

76 

MJ 

0 

LB 103 



77 

RJ 

LB111 

LB106 

Get next string-out word-^A 


100 

RJ 

CW 

CWl 

Get const. CW for mult. 3 (this string 





word has data only in v) 

62...# of 

101 

TU 

A 

LC26 1 

L Generate and place TP [CW mult. 3] 

102 

RJ 

LB 133 

LB121 J 

1 for multipl. 1 

63- • • 

1 Of' a t 

103 

104 

TU 

RJ 

LD10 

LB133 

LC26 1 
LB121 J 

Generate and place TP [CW modulus] 

i vCCJ 1/ • 

6 2 3 :::*° f 

105 

MJ 

0 

LA 17 

Go to get next string-out word 

locat. 

106 

RA 

LA20 

LC1 



107 

TU 

LA20 

LB110 

„ Get next string-out word to A 


110 

TP 

30000 

A 

(used as subrout, in III) 


111 

MJ 

0 

30000 . 



112 

TV 

LC40 

LB 121 

Set jump to IV ^2 * n IV 


113 

MJ 

0 

LB45 


114 

TV 

LC41 

LB121 

Set jump to IV^g in IV 


115 

MJ 

0 

LB45 


116 

SP 

LD6 

17 1 

k Prepare IV ^ 


117 

TU 

A 

LC26 J 


120 

MJ 

0 

LB122 

Generate and place TP CW 


121 

MJ 

0 

30000 

Jump to right entry 


122 

TV 

LC16 

LC26 

Place 62...in LC26 


123 

MJ 

0 

LB 12 5 



124 

TV 

LC15 

LC26 

Place 63...in LC26 


125 

RA 

LC26 

LD2 

Add # of locat. to .. in LC26 v 

r address 

126 

TV 

LD3 

LB127 

Place "next addr e for gen. coding” 

in NI 

127 

TP 

LC26 

30000 

Place one line of generated coding 

130 

RA 

LD2 

LC2 ] 

1 


131 

RJ 

LJ12 

LJ11 

r Adv. counters and check exceeded region 

132 

RA 

Lf>5 

LC2 J 



133 

MJ 

0 

30000 



134 

TP 

LC25 

Q 1 

1 Mask CW at hand—>A in u address 
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135 

QT 

LC36 

A 

J 




136 

RP 

20000 

LB140 

i 




137 

EJ 

LF2 

LB143 

J 

\ 

Compare whether already in Op File 1 


140 

TP 

A 

LF2 



When not yet in Op File 1, put CW in it 








(TP because space is not cleared before 


141 

MJ 

0 

LJ3 

1 

1 

. , ,, (1 in v) 


142 

RA 

LB 136 

LC1 

J 

r 

Advance addresses ,, . n 

(1 in u) 

VI . 

f 143 

MJ 

0 

30000 



Used only in RJ 

T £2L_ 

L T44 

TV 

LD3 

LB 146 





145 

RP 

30002 

LB147 

1 

L 

Place the 2 rows that have f RJ CW CW 


146 

TP 

LD13 

30000 

J 

r 

been set away l 10 0 1 


147 

RA 

LD5 

LC2 


1 



150 

RJ 

LJ12 

LJ10 

J 

r 

Adv. counters 


151 

RP 

10003 

LB 153 

1 

i 

Clear all "inside*s" and counter for 


152 

TP 

LC 

LD 

J 

r 

number of addr. in array 


153 

TU 

LD13 

LC36 



Put CW in u of LC36 


154 

RJ 

LB143 

LB 134 



RJ to take care of Op File 1 


155 

MJ 

0 

LA17 



Jump to get next string-out word 

l, Q 

156 

TV 

LC15 

LC26 

1 

i 


63 

157 

MJ 

0 

LB 

J 

r 

Prepare 1^^ 

IV, _ 

160 

SP 

LD6 

17 


i 


17 

161 

TU 

A 

LC26 

1 


Prepare IV^ 


162 

MJ 

0 

LB124 


1 



163 

TP 

LA34 

LA23 



Shortcut (skip everything up to 


164 

RJ 

LA22 

LA17 


V 

next zero word) 


165 

TP 

LC45 

LA23 


w 

Restore LA23 


166 

MJ 

0 

LB 144 

> 


Jump to handle zero word situation 


167 

SP 

LD6 

17 

- 




170 

TU 

A 

LC26 





171 

TV 

LC 11 

LC26 



Place MJ in end 


172 

MJ 

0 

LB125 


> 



173 

TP 

LC20 

LC26 





174 

RJ 

LB 133 

LB126 





175 

MJ 

0 

LA 134 





176 

TP 

LC46 

Q 



Mask for last 3 bits, come from LA41 


177 

RA 

LA20 

LC 1 



Advance to next string-out word 


200 

TU 

LA20 

LB201 

i 

[ 



201 

QT 

30000 

A 

j 

\ 

Mask out # of subscripts 


202 

EJ 

LC2 

LB206 



Is it 1? 


203 

TJ 

LC5 

LB205 



Is it < 4? 


204 

RA 

LA20 

LC1 



It is 4 : advance once more 


205 

RA 

LA20 

LCl 



It is 2 or 3: advance once more 


206 

MJ 

0 

LA17 



It is 1 : go to get next string-out 



CA 

LB207 




word 


1066 



Constants 



IA 

LC 


0 

0 

0 

0 

1 

0 

1 

0 

2 

0 

0 

1 

3 

0 

0 

2 

4 

0 

0 

3 

5 

0 

0 

4 

6 

0 

0 

LE7 

7 

01 

22777 

77777 

10 

0 

0 

76000 

11 

0 

0 

75000 

12 

0 

0 

66000 

13 

0 

0 

24000 

14 

0 

0 

25000 

15 

0 

0 

63000 

16 

0 

0 

62000 

17 

0 

0 

61000 

20 

MJ 

0 

01000 

21 

0 

0 

00700 

22 

0 

10000 

10000 

23 

0 

0 

77000 

24 

0 

0 

1003 

25 

0 

77777 

0 

26 

TP 

30000 

30000 

27 

0 

1 

1 

30 

TU 

30000 

30000 

31 

TV 

30000 

30000 

32 

RA 

30000 

30000 

33 

RJ 

30000 

30000 

34 

0 

0 

LAI 13 

35 

RJ 

0 

0 

36 

0 

30000 

LB144 

37 

0 

0 

LE 

40 

TU 

0 

LB 122 

41 

TV 

0 

LB124 

42 

TP 

A 

LF 

43 

0 

0 

6 

44 

0 

LE 

LF 

45 

EJ 

LC7 

LB 173 

46 

0 

0 

7 

47 

TP 

A 

LQ 

50 

0 

0 

LR 

51 

MJ 

0 

LP 

52 

AT 

LD6 

LU 


CA 

LC53 



XS3 "A." 


„ These four rows belong together 

(the 30000 must not be messed up) 

This instr.-const, must have zero’s 


f For exceeded region checks 
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Exceeded Region Tests 



IA 

LJ 



0 

TJ 

LC51 

LA164 1 

^ Gen. constants 

1 

TU 

LS 

LKl j 

2 

MJ 

0 

LK 

Alarm 

3 

RA 

LB140 

LC2 1 

I 

4 

TJ 

LC47 

LB142 | 

r Region LE 

5 

TU 

LT 

LKl J 

6 

MJ 

0 

LK 

Alarm 

7 

RA 

LD3 

1X3 1 


10 

RA 

LD3 

LC2 


11 

RA 

LD3 

LC2 

> Region LF 

12 

TJ 

LC50 

30000 

13 

TU 

LO 

LKl 


14 

MJ 

0 

LK 

Alarm 

15 

RA 

LB1 

LC2 1 

i 

16 

TJ 

LC52 

LB4 

r Region LI 

17 

TU 

LV 

LKl J 

20 

MJ 

0 

LK 

Alarm 


CA 

LJ21 
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Alarm Entrance 



IA 

LK 


0 

RJ 

WA 

WA2 

1 

TP 

30000 

UP3 

2 

RJ 

UP 2 

UP 

3 

MJ 

0 

BQ6 


CA 

LK4 



0 

IA 

0 

LS 

LSI 

0 

Ain 1 

maun x 

1 

40 

LS2 

7 


2 

32 

30503 

05424 

Generated code 

3 

66 

30270 

12651 

exceeds 1777 

4 

27 

30013 

07226 

addresses. 

5 

30 

30276 

50104 


6 

12 

12120 

12427 


7 

27 

54306 

56530 


10 

65 

22777 

77777 



CA 

LS11 








Alarm 2 


IA 

LT 



0 

0 

LT1 

0 


1 

40 

LT2 

6 


2 

54 

30323 

45150 

Region for Op File 1 

3 

01 

31515 

40151 

is exceeded. 

4 

52 

01313 

44630 


5 

01 

04013 

46501 


6 

30 

72 263 

03027 


7 

30 

27227 

77777 



CA 

LT10 


Alarm 3 


IA 

LO 



0 

0 

LOl 

0 


1 

40 

L02 

7 

Region for generated 

2 

54 

30323 

45150 

coding is exceeded 

3 

01 

31515 

40132 


4 

30 

50305 

42466 


5 

30 

27012 

65127 


6 

34 

50320 

13465 


7 

01 

30722 

63030 


10 

27 

30272 

27777 



CA 

LOll 
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Alarm 4 



IA 

LV 


0 

0 

LV1 

0 

1 

40 

LV2 

10 

2 

54 

30323 

45150 

3 

01 

31515 

40132 

4 

30 

50305 

42466 

5 

30 

27012 

65150 

6 

65 

66245 

06665 

7 

01 

34650 

13072 

10 

26 

30302 

73027 

11 

22 

77777 

77777 


CA 

LV12 



Region for generated 
constants is exceeded. 
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Temporaries 


Compute Generate 


LD 0 

1 

9 r i 

3 t ) 

4 0 lOOOO 10000 

5 0 0 1 


6 

7 

10 

11 

12 

13 

14 10 0 1 


Index "inside something" 

Index " pseudo oper. 

Running # adv. by IV(4- 1). 18( = 0), 1(4- 
Addr. of gen. code adv. by 


V(4- 2), IVCf 1), 18(4- 4), 
CW of gener. const, adv. by 
1(4- 1 in u and v) 
adv. by V(f 1) 

IV(4- 1), 18(4- 4), 1(4- 1) 
Next string—out word 
Working space 
Working space 
Working space 

Working space r RT rw rw 
Storage space for ^ ^ 


I(F 1) 


1 

i 

1 ) 


cleared 
► in begin¬ 
ning 


cleared 
^later 
. again 


Generated Code: 


LE 0 
1 
2 

3 

4 

5 

6 


0 sent.CW 0 


Line # XS3 code 
MJ 0 01000 


Set by LA12 and LA160 


cleared in 
beginning 


OP File I 


If 0 0 sent.CW 0 
1 
2 

3 

4 


l not cleared 
J in beginning 


Generated Constants 


LI 0 
1 
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Vary Generation Routine 


The Vary generator uses the string-out and the Vary File as built during 
the Translation Phase to prepare the relative coding necessary to perform the 
functions of the input Vary sentence. This generator also provides an Op 
File I item to be used by the Segmentation Phase. The relative coding is 
later modified by the Processor according to the information furnished by the 
Allocator. 

The generated Vary coding may be broken down into the sequence of functions 
performed by the Vary sentence. 


© 

© 


© 


MJ - OOOOO -[ 4 ] 

MJ - OOOOO -[(2) or ©] 

MJ - OOOOO -[ ] 

{ Set initial value(s)} 

f Jump to first statement 
t in range 


Resume entry 
Normal entry 

Exit as specified in string-out 
or Vary File 


fTests for completion of 
l Vary. If finished, to (I) 

{Modify variable(s) } 

{Back to © | 

[Tests for indefinite! 

1 loop, if required / 

{Back to (2) } 



The call word from the u-portion of the Vary File item is filled into the 
Exit instruction by the Vary generator when the transfer component is implied 
rather than stated. 

The return to the Vary coding from the last sentence in the Vary’s range 
is accomplished by the insertion of the Vary call word (from the v-portion of 
the Vary File item) into the Exit line of the generated coding for the last 
sentence in the range. This insertion is effected by the RG routine of 
the Generation subroutines. The Exit line of the last sentence in the Vary 
range will return to the Vary coding at the Resume Entry line. 
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MJ-0 






Set index CT to 
number of with 
words in sentence 


First indicator 
stringout address 
CT2 



Is initial \y es 
value absolute) 
value? 



TM ~ 


GL 


A 
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Insert call 
Jword of initial! 
lvalue in u- 
portion of GL 



Store address of 
next generated 
instruction in CT3I 


Insert call 
word of vari¬ 
able in v- 
portion of GL 





Advance CT2 
to next vari¬ 
able’s indi¬ 
cator 


"Have all ’set 
initial value* 
.instructions been 
V built? > 

TT 




© 


V 

10-0-1 

■u 

r > 

—» GL 



Fill in v-por- 
tion of resume 
entry line 




Set index CT to 
number of with 
words in sentence 


First indicator 
stringout address; 
CT2 



Is variable a 
’dummy* variable 
Of subprogram? 


Yes 




11 


Is ’dummy* vari¬ 
able fixed point? 



No 


© 


12 


B3 

—> 

Insert call word 
of increment in 

-WRS)* 

Is limit \JVJo 

1 variable ab- J” 3 * 



u-portion of GL 

V 

\solute value?/ 

Baal 




Yes 


M13 






Vary Generator Flow Charts 
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Is limit vari¬ 
able absolute 
. value? > 



/'Have all "testis 
for completion* 
instructions been 
Vqenerated? V 


— *© 


TM-___~A 
—> GL 


Insert call 
word of limit 
in u-portion 
of GL 


TM-Q-A 
—> GL 


r RS)^(i8 


Is variable> 
fixed point? 
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Is ‘dummy* vari^\^ 0 ^-> 
able fixed point?)—>(24 


/isin c r e me n t\ 
absolute value?) 


FA-Q-_ 

—> GL 


Insert call 
word of vari¬ 
able in v- 
portion of GL 


Is increment' 
absolute 
^ value? ^ 
Yes/^s 



Insert call 
word of in¬ 
crement in 
u-portion 
of GL 


Is increments Yes 
absolute )—-— 

^ value? y 

I r—— 



Insert call 
word of in¬ 
crement in 
u-portion 
of GL 



Insert call 
word of vari¬ 
able in 
u-portion 
of GL 



Insert call 
word of vari¬ 
able in v- 
portion of 
GL 


Is increments Yes 
absolute J— 

value? y 
J/No 


Insert Q ad¬ 
dress in 
v-portion 
of GL 


Advance CT2 
to next vari¬ 
able’s 
indicator 


/Have all incre-\ 
ment variable in-] 
.structions been ) 
V generated? y 
TTNo 


MJ-O-_ 

—> GL 


Store address 
from CT3 in 
v-portion of 
GL. (address 
of jump to 
range) 



Is test 
indicator 
equal to zero? 


Set ® 


First indicator 
stringout address 
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TP-10001-50002 
—> GL 

(10001 is address of 
second relative constant) 
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NO 
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Insert call 
word of in¬ 
crement in 
u-portion 
of GL 



Insert relative 
address of next 
instruction in 
u-portion of GL 


Insert relative 
address of alarm 
entry (from CT3) 
in v-portion of GL 



/ w 



Insert call 


Insert call 

word for con- 

A 

TJ-_-_ 


word for in- 

stant zero in 

-^KRS)—> 


—> 

crement in 

u-portion of 


—* GL 


u-portion of 

GL 


GL 





Insert relative address] 
of second following 
instruction (NI+1) in 
v-portion of GL_ 



MJ-0-_ 

—> GL 


Insert relative address! 
of alarm entry (from 
CT3) in v-portion of 
GL 



Insert call word 
of increment in 
u-portion of GL 




Insert relative 


Insert relative 


SJ-. 


address of next 


address of alarm 

>— J 


—> 

instruction in 


entry (from CT3) 


—> GL 


u-portion of 


in v-portion of 


GL 


GL 



:rs 


54] 
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0 * 


Insert calculated 
relative address 
in u-portion of GL 



Insert relative 
address of next in¬ 
struction in 
u-portion of GL 


Insert relative 
address of alarm 
entry in v-portion 
of GL 





Add four (4) to 
current relative 
address 


■*( 53 


Insert calculated! 
relative address 
in v-portion of 
GL 
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Advance relative 
address counter 
(CT1) by one 


Transfer five words of 
stringout (next variable 
information) from ad¬ 
dress given by CT2 to 
temporary storage 
(TE0-TE4) 
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'Is initial > 
value absolute 
V value? ^ 
Yes 


'Tslimrl 
absolute 
v value?. 


TP-_-A 

—> GL 




Insert call 
word of limit 
in u-portion 
of GL 


62 UTJ-Q-__ 
—» GL 



Insert call word of 
limit in u-portion of 
GL 


No TP-___ 



Insert call word 
of initial value 
in u-portion of GL 


Is limit 


absolute 


value? 


TM-___ 
—>GL 



Insert relative 
address of alarm 
entry (from CT3) 
in v-portion of 
GL 


"Is limit 
absolute 
v value? 



Insert call word 
of limit in u- 
portion of GL 


'"7s initial Yes 

value absolute)- 1 

V value? y A 


TM-_-Q 

—> GL 


Insert call 

word 

of initial 

value 

in u-portio 

n of 

GL 



Is initial 
value absolute 
^ value? 


Insert call word 
of initial value 
in u-portion of 
GL 



Vary Generator Flow Charts 































083 





To convert XS-3 sentence number to Flex code, insert in relative constants 
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Vary Generator Regions 


RE 

VY2512 

(1) 

RE 

IN2513 

(4) 

RE 

VA2517 

(50) 

RE 

VE2567 

(40) 

RE 

CE2627 

(21) 

RE 

VB2650 

(23) 

RE 

FX2673 

(24) 

RE 

FL2717 

(27) 

RE 

VC2746 

(12) 

RE 

FG2760 

(16) 

RE 

FD2776 

(22) 

RE 

VT3020 

(51) 

RE 

DJ3071 

(37) 

RE 

DK3130 

(12) 

RE 

DL3142 

(35) 

RE 

DM3177 

(13) 

RE 

EM3212 

(23) 

RE 

EN3235 

(23) 

RE 

VS3260 

(24) 

RE 

BP3304 

(27) 

RE 

CV3333 

(20) 

RE 

RS3353 

(3) 

RE 

ST3356 

(3) 

RE 

SA3361 

(4) 

RE 

CN3365 

(73) 

RE 

RC3460 

(13) 

RE 

CT3473 

(6) 

RE 

GL3501 

(1) 

RE 

TE3502 

(5) 

RE 

PF3507 

(5) 
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RE 

CW1211 

Obtain CW for constant 

RE 

LS1465 

Insert Library CW in List I 

RE 

0P1047 

Write Generated routine and Op File I 
on tape 

RE 

BR537 

Compiler of computer error routine 

RE 

KI1336 

Illegal jump check routine 

RE 

LW1250 

Sentence CW locating routine 

RE 

UP421 

On line print routine 

RE 

WA653 

Print heading routine 

RE 

BQ632 

To rewind tapes 

nr? 

WCj 

r» r/nn in 

Sentence string-out 

RE 

PL5360 

Op File I 

RE 

GC5366 

Generated coding 

RE 

VF47101 

Vary File 


IA VY 
0 MJ 0 
CA VY1 

IA IN 

0 RP 10006 

1 TP CN 

2 RP 10005 

3 TP CN 

4 MJ 0 
CA IN 5 


30000 Exit line 


IN2 \ Zeroize Prelude area 

PL J 

IN4 1 Zeroize Op File I area 

PF J f 
VA iVAO = IN4 
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© 


© 



IA 

VA 


> 0 

TP 

CN34 

GL 

1 

RJ 

RS2 

RS 

2 

TP 

CN34 

GL 

3 

RJ 

RS2 

RS 

4 

TP 

CN34 

GL 

5 

SP 

BK7 

0 

6 

ZJ 

V E 

VA7 

7 

TU 

VF 

VA11 

10 

SP 

BK6 

0 

11 

RP 

30000 

BR3 

12 

EJ 

[VFl] 

VA13 

13 

SP 

VA11 

0 

14 

LQ 

Q 

17 

15 

TU 

0 

VA11 

16 

SS 

Q 

0 

17 

SA 

VA12 

0 

20 

TU 

A 

VA12 

21 

TU 

A 

VA25 

22 

TU 

A 

VA30 

23 

TU 

A 

VA31 

24 

TP 

CN15 

Q 

25 

QT 

30000 

A 

26 

EJ 

BK3 

VA30 

27 

MJ 

0 

VA10 

30 

TU 

30000 

CT 

31 

SP 

30000 

45 

32 

SJ 

VA33 

VA34 

33 

TV 

CN31 

CE1 

34 

LT 

10024 

Q 

35 

TV 

0 

CT 

36 

TP 

CN55 

0 

37 

SP 

BK3 

0 

40 

TJ 

CN54 

VA43 

41 

QT 

CT 

A 

42 

MJ 

0 

VA45 

43 

QT 

CT 

A 

44 

TP 

CN34 

0 

45 

RJ 

KI 

KI1 

46 

TV 

CT 

GL 

47 

MJ 

0 

CE 


CA 

VA50 



} 


} 

} 

} 


MJ 0 - —> GL 
Store 

MJ 0 1003 —>GL 

Store 

MJ 0 - —>GL 

Is exit sentence number stated? 

No, so search Vary file for sentence 
number of last sentence in range 


Add r to VF1 to find Exit call word 


Set to continue search 
Set up 

Vary call word for this Vary File 
item —> A 

Has the cor. Vary File item been found ? 
No, back to continue search 
Save Exit call word 
Is there an implied resume? 

Yes, so set (c) to @ 

Save Exit call word in CT V 

o -* 035 

Sentence CW —>Ace 

Is 26000>Sentence CW? If yes, then 22— 
Exit CW —> A u 

Exit CW —> A u 

1—^Q35 indicates within Pseudo-Op. 
Illegal sentence number check 
Fill v of Exit line 
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© VE 


IA VE 


0 

RJ 

LW 

LW 1 


Obtain call word for Exit 




1 

TU 

A 

CT 

\ 

Save call word 





2 

TV 

n 

CT 

r 






3 

TP 

BK10 

0 

\ 

Is stated Exit a Resume? 





4 

QJ 

VE5 

VA36 

j 






5 

TP 

CN15 

0 

X 

Yes, so Exit CW to CT2 V 

and 

Acc 



6 

QT 

CT 

CT2 

j 






7 

TJ 

CN54 

VE 12 


26000 >CW? 





10 

TJ 

CN60 

VE32 


No, so is 27000 >CW? If 

so 

OK 



11 

MJ 

0 

VE34 


No, so to alarm 





12 

SP 

VF 

17 




0 

jn 

SN 

SN 


13 

SA 

CN24 

0 

; 

m + VF2—>A U 

VF 

r 

m 

14 

TU 

A 

VE26 


Set beginning of search 

m - 


CW26 

15 

LT 

6 

A 


jn —>A V 


CW26 

16 

TP 

CN61 

Q 

) 

n —»CT3 



• 


17 

QT 

A 

CT3 

j 



SN 

SN 


20 

QT 

VF 

Q 


m —> Q 

x n * 

n-m —>CT3 



CW26 

21 

RS 

CT3 

0 




CW22 

22 

LT 

43 

CT3 


T 2 



SN 

23 

IJ 

CT3 

VE25 


Checked all items? 



CW22 

24 

MJ 

0 

VE34 


Yes, and not found, so 



• 






error 



* 


25 

TP 

CN15 

Q 

] 

Does exit CW agree 



SN 

CW22 

26 

QT 

30000 

A 


with next Vary CW 

h. 



27 

EJ 

CT2 

VE32 

J 

in Vary File? 





30 

RA 

VE26 

CN53 


No, so advance to next item 




31 

MJ 

0 

VE23 


and back 





32 

TV 

CN31 

CE1 


Set (c) to @ to avoid 

gen 

. 10—line 

33 

MJ 

0 

VA36 






34 

RJ 

WA 

WA2 

1 






35 

TP 

CN62 

UP3 


Print alarm 





36 

RJ 

UP 2 

UP 

J 






37 

MJ 

0 

BQ6 


Rewind tapes and stop 






CA 

VE40 
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CE 



IA 

CE 



0 

RJ 

RS2 

RS 

Store Exit line 

1 

MJ 

0 

[ CE2 ] 


2 

TP 

CN17 

GL 

o 

t 

i— i 

o 

o 

i—H 

3 

RJ 

ST2 

ST 

Store 

4 

TP 

BK4 

CT 

Set index to # of WITH words 

5 

TP 

CN23 

CT2 

String-out address of 1st indicator-* CT2 

6 

RJ 

SA3 

SA 

Store next variable info in TE-TE4 

7 

10 

TP 

QJ 

TE2 

CE11 

0 

CE13 J 

^ Is initial value absolute value? 

11 

TP 

CN27 

GL 

Yes, so TM - - —> GL 

12 

MJ 

0 

CE14 


13 

TP 

CN26 

GL 

No, so TP - - ->GL 

14 

TU 

TE2 

GL 

TP 

rw 

TM in it - - 

15 

TV 

TE1 

GL 

TP 

zL CW. .. CW 

TM mit var 

16 

RJ 

RS2 

RS 

Store 

17 

RA 

CT2 

CN5 

Advance to next variable's indicator 

20 

IJ 

CT 

CE6 

Have we built all 'set initial value* 
instructions? 

21 

MJ 

CA 

IA 

0 

CE22 

VB 

VB 

Yes {VB0 = CE21 

0 

TP 

CT1 

CT3 

Save address of JUMP TO RANGE 

1 

TP 

CN34 

GL 

MJ 0 - GL 

2 

SP 

BK5 

0 


3 

RJ 

LW 

LW1 

To find CW of first sentence of range 

4 

TV 

Q 

GL 

Insert CW in MJ instruction 

5 

RJ 

RS2 

RS 

Store 

6 

TP 

CN17 

GL 

10 0 1 —>GL 

7 

RJ 

ST2 

ST 

Store 

10 

TV 

CT1 

GC 

Fill in RESUME entry line 

11 

TP 

BK4 

CT 

Set index to of WITH words 

12 

TP 

CN23 

CT2 

Set address of first variable 

13 

RJ 

SA3 

SA 

Transfer variable to temporary area 

14 

TP 

CN15 

Q 1 

t CW of variable —>A. 

15 

QT 

TE1 

A J 

[ 

16 

TJ 

CN12 

VB21 

64000 > CW? 

17 

TJ 

CN13 

FX 

No, 65000 > CW? 

20 

MJ 

0 

FL 

No, so floating variable 

21 

TP 

TE1 

Q 1 

1 CW is 63..., so determine if fixed or 

22 

QJ 

CA 

FL 

VB23 

FX J 

f floating 
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IA 

FX 

Fixed 

Variable (Build test for completion) 

0 

TP 

CN27 

GL 

TM — Q —■> GL 

1 

TU 

TE3 

GL 

TM CW. Q — >GL 

2 

RJ 

RS2 

RS 

c . me v 

Store 

3 

4 

TP 

QJ 

TE4 

FX22 

0 _ 1 
FX5 ) 

Is limit variable absolute value? 

5 

TP 

VB2 

GL 

No, so SP - 0 —> GL 





SP r>ur 0 

TM L A —>-GL 

6 

TU 

TE4 

GL 


7 

RJ 

RS2 

RS 

Store 

10 

TP 

BP4 

GL 

SS - 0 —> GL 

11 

TU 

TE1 

GL 

SS CW 0 ->GL 

12 

RJ 

RS2 

RS 

P . var 

Store 

13 

TP 

CN30 

GL 

TM A A —> GL 

14 

RJ 

RS2 

RS 

Store 

15 

TP 

CN33 

GL 

T J Q 1002 ->GL 

16 

RJ 

RS2 

RS 

Store 

17 

RA 

CT2 

CN5 

Advance to next indicator address 

20 

IJ 

CT 

VB13 

Back if all tests for completion not 





generated 

21 

MJ 

0 

VC 


22 

TP 

CN30 

GL 

TM - A —>GL 

23 

MJ 

0 

FX6 



CA 

FX24 





IA 

FL 

Floating Variable. (Build for completion) 

0 

TP 

CN27 

GL 

TM — — —>GL 

1 

TV 

RCl 

GL 

TM —70000 

2 

TU 

TE3 

GL 

TM CW 70000 (CW of increment.) 

3 

RJ 

RS2 

RS 

Store 

4 

TP 

TE4 

Q 1 
flu J 

\ Is limit variable absolute value? 

5 

QJ 

FL6 

6 

TP 

CN30 

GL 

Yes, so TM - A-> GL 

7 

TU 

TE4 

GL 

TM CW A (CW of limit) 

10 

RJ 

RS2 

RS 


11 

TP 

CN32 

GL 

FS A- —> GL 

12 

TV 

TE1 

GL 

FS A CW (CW of variable) 

13 

TP 

TE4 

Q 1 

1 Is limit variable absolute value? 

14 

QJ 

FL16 

FL15 J 

r 

15 

TU 

TE4 

GL 

No, so FS CW CW (CW n of limit.) 

16 

RJ 

RS2 

RS 

Store 

17 

TP 

CN30 

GL 

TM -A -» GL 

20 

TU 

CN27 

GL 

TM Q A 

21 

RJ 

RS2 

RS 

Store 

22 

TP 

CN33 

GL 

TJ - 01002 ->GL 

23 

TU 

RCl 

GL 

TJ 70000 01002 

24 

TU 

CNT6 

PL2 

Set # working temps into 3rd word of Prelude 

25 

TV 

CN1 

PF1 

Set word 2 of Op File 1 item = 1 

26 

MJ 

0 

FX16 

To store 


CA 

FL27 
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IA 

§ VC 0 TP 



11 QJ 
CA 


VC 

(Increment Variable Control) 

BK4 

CT 

Set index to # of WITH words 

CN23 

CT2 

Set address of first variable indicator 

SA3 

SA 

To store group of CW's in TE 

CN15 

Q 

l Send CW of variable to A 

TE1 

A 

f 

CN12 

VC10 

64000 >CW? 

CN13 

FD 

65000 > CW? 

0 

FG 

No, so floating variable 

TE1 

Q ] 

CW is 63-; determine if fixed or 

FG 

FD J 

floating 

VC12 




(Q) FG 0 
1 
2 

3 

4 

© 5 

6 
7 

10 

_ 11 

@ 12 

13 

14 

15 


IA 

TP 

QJ 

TP 

TU 

RJ 

TP 

TV 

TP 

QJ 

TU 

RJ 

TP 

TV 

MJ 

CA 


FG 

TE3 

FG2 

CN27 

TE3 

RS2 

CN31 

TE1 

TE3 

FG12 

TE3 

RS2 

CN26 

TE1 

0 

FG16 


(Build Floating increment variable instructions) 


Q 

Increment 

CW —> 

Q 

FG5 

Absolute 

value? 


GL 

Yes TM 


Q —> GL 

GL 

TM 

CW. 

Q 

RS 

Store 

inc 


GL 

FA 

0 

- —>GL 

GL 

FA 

Q 

CW 

A \ 



var. 

Q \ 
FG11 J 

Is increment absolute value? 

GL 

No; so FA 

CW. 

CW -> GL 

RS 

Store 

me 

var. 

GL 

TP 

Q 

-> GL 

GL 

TP 

Q 

CW 

FD14 

To store 


var. 
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FD 



IA 

FD 

(Build 

fixed increment variable instrs. and Jump Back) 

0 

TP 

TE3 

Q 

Increment to 

Q 


1 

QJ 

FD2 

FD5 

Absolute value? 


2 

TP 

CN27 

GL 

Yes. so TM 

— o —> 

GL 

3 

TU 

TE3 

GL 

TM 

cw. 6 — > 

GL 

4 

R J 

RS2 

RS 

Store 

me 


5 

TP 

FD15 

GL 

RA 

- - ->> 

GL 

6 

TU 

TE1 

GL 

RA 

CW —> 

GL 

7 

TP 

TE3 

Q 

} Is increment 

var 

abs. value? 


10 

QJ 

FD11 

FD13 




11 

TV 

CN27 

GL 

Yes, RA 

CW Q -> 

GL 

12 

MJ 

0 

FD14 


var 


13 

TV 

TE3 

GL 

No, RA 

cw cw. — 

» GL 

14 

RJ 

RS2 

RS 

Store 

var inc. 


15 

RA 

CT2 

CN5 

Advance to next indicator 


16 

IJ 

CT 

VC2 

Back if all 

increment instructions not 





generated 



17 

TP 

CN34 

GL 

MJ 

o — -> 

GL 

20 

TV 

CT3 

GL 

MJ 

0 01-(Back to Jump to 

21 

RJ 

RS2 

RS 

Store 

Range) 

22 

MJ 

0 

VT 

CM 

CM 

a 

u* 

II 

e 

> 



CA 

FD23 
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IA VT 


' 0 

TP 

1 

TP 

2 

RJ 

3 

SP 

4 

ZJ 

5 

MJ 

6 

TV 

7 

TP 

10 

TP 

11 

TV 

12 

SP 

13 

RJ 

14 

TL T 

15 

RJ 

16 

TP 

17 

TU 

20 

TV 

21 

RJ 

22 

TP 

23 

RJ 

24 

TP 

25 

RJ 

26 

TP 

27 

RJ 

30 

TP 

31 

TV 

32 

RJ 

33 

TP 

34 

RJ 

35 

TP 

36 

TV 

37 

RJ 

40 

TV 

41 

LQ 

42 

QJ 

43 

LQ 

44 

QJ 

45 

QJ 

46 

LQ 

47 

QJ 

50 

QJ 

CA 


BK4 

CT 

CN23 

CT2 

SA3 

SA 

TE 

0 

VT5 

VS1 

0 

[VT6] 

CN36 

VT5 

CTI 

CT3 

CN26 

GL 

RC1 

GL 

CN3 

0 

CW 

CW1 

A 

GL 

RS2 

RS 

CN26 

GL 

CN35 

GL 

CN25 

GL 

RS2 

RS 

CN20 

GL 

ST2 

ST 

CN25 

GL 

RS2 

RS 

CN21 

GL 

ST2 

ST 

CN36 

GL 

CN25 

GL 

RS2 

RS 

CN22 

GL 

ST2 

ST 

CN7 

GL 

CTI 

GL 

RS2 

RS 

CTI 

GCl 

TE 

Q20 

VT45 

VT43 

Q 

1 

DJ 

DJ2 

DL 

VT46 

Q 

1 

DJ4 

VT50 

DK 

DJ16 

VT51 



Set index to # of WITH words 
Set address of 1st indicator 
Transfer 5 words to temporary 

Is indicator zero? 

Set (B) to @ 

(CTI)—>CT3. Save alarm print address 

TP - - —> GL 

TP - 70000 

Find CW for 79 10 

TP 67... 70000—> GL 

Store 

TP - - —> GL 

TP 10000 - 

TP 10000 50002 

Store 

10 0 3 —» GL 

Store 

TP 10001 50002 —»GL 

Store 

10 0 4 —» GL 

Store 

RJ 50002 - —> GL 

RJ 50002 50002 —» GL 

Store 

10 2 0 —> GL 

Store 

MS 0- >GL 

MS 0 01000+... 

Store 

Change entry to jump into first test 


DJ f indicator = 14 DJ2, indicator = 10 
DL f indicator = 30 

DJ4 f indicator = 22 

DK12, indicator = 21. DJ16 t indicator = 20 
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IA 

DJ 

Indicators: 10, 14, 20(part 1) 

@ Indie.= 

DJ 0 

RJ 

EM22 

EM 

Build and store test insti. for case 2 

^ 14 

1 

MJ 

0 

VS 


(g3> Indies 

10 2 

RJ 

EN22 

EN 

Build and store test instr. for ease 1 


3 

MJ 

0 

VS 


@ Indie.= 

22 4 

TP 

CN26 

GL 

TP - A —> GL 


5 

TU 

TE3 

GL 

TP CW. A —► GL 


6 

RJ 

RS2 

RS 

Co. in c 

Store 


7 

TP 

VA6 

GL 

ZJ -- > GL 


10 

SP 

CT1 

0 



11 

SA 

CN1 

17 



10 

JL£* 

T(T 

X U 

A 

n 

GL 

7 J NT - -?». QL 


13 

TV 

CT3 

GL 

ZJ NI alarm _^^ 






entry 


14 

RJ 

RS2 

RS 

Store 


15 

MJ 

0 

VS 


@ Indie*= 

20 16 

TP 

TE3 

Q 1 

)■ Is increment absolute value? 


17 

QJ 

DJ4 

DJ20 J 



20 

TP 

VA5 

GL 

SP - 0-> GL 


21 

SP 

CN 

° 1 

Find CW for zero 


22 

R J 

cw 

CWl J 

67... 


23 

TU 

A 

GL 

SP CW zero G ^GL 


24 

RJ 

RS2 

RS 

Store 


25 

TP 

CN33 

GL 

TJ- >GL 


26 

TU 

TE3 

GL 

TJ CW.- >GL 

© 

27 

SP 

CN2 

0 

inc 


30 

SA 

CT1 

0 



31 

TV 

A 

GL 

TJ CW. NI + 1 —>GL 


32 

RJ 

RS2 

RS 

. me 

Store 


33 

TP 

CN34 

GL 

MJ 0-> GL 


34 

TV 

CT3 

GL 

MJ 0 alarm —>ql 


35 

RJ 

RS2 

RS 

Store entr y 
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GL 
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[■ Put in relative constants and Flex codes 

12 

TP 

RC 
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2 MJ 0 [30000] 

CA ST 3 

IA SA 

SA 0 TU CT2 SA2 

1 RP 30005 SA3 
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0 
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0 
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0 
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0 
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0 
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0 
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Routine D finds CW for Vary sent, in IZ 

il5 

TP 

Q 

NC66 

Save CW in NC66 

I 16 

QT 

NC61 

A 

Mask ii 4_9 (xxOOO) v 

117 

SS 

NC64 

0 

Test for 22 (subtract 22000) v 
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0 
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MJ 

0 

NC53 

i 

i 


(6) 

136 

TP 

VF 

Q 

J 

1 

Presetter for NC32 


CA 

NCI 37 









ERROR 

ROUTINE 


IA 

NO 



0 

MJ 

0 

BQ6 


1 

RJ 

WA 

WAl 


2 

TP 

ND15 

UP 3 


3 

RJ 

UP2 

UP 


4 

MJ 

0 

ND 


5 

66 

33305 

43001 

THEREA 

6 

34 

65015 

05101 

ISANOA 

7 

54 

30313 

05430 

REFERE 

10 

50 

26300 

16651 

NCEATO 

11 

01 

24011 

77024 

AAACVA 

12 

54 

73430 

16566 

RY )AST 

13 

24 

66304 

73050 

ATEMEN 

14 

66 

22777 

77777 

T* 

15 

40 

ND5 

10 



CA 

ND16 







ERROR 

ROUTINE 


IA 

NE 



0 

MJ 

0 

BQ6 


1 

RJ 

WA 

WAl 


2 

TP 

NE16 

UP 3 


3 

RJ 

UP 2 

UP 


4 

MJ 

0 

NE 


5 

65 

66246 

63047 

STATEM 

6 

30 

50660 

15430 

ENTARE 

7 

31 

30543 

05026 

FERENC 

10 

30 

65012 

40150 

ESAAAN 

11 

51 

50023 

07234 

ON-EXI 

12 

65 

66305 

06601 

STENT A 


1103 



13 

17 

70245 

47343 

(VARY) 

14 

01 

65305 

06630 

ASENTE 

15 

50 

26302 

27777 

NCE. 

16 

40 

NE5 

11 



CA 

NE17 




1104 



1105 



Flow Chart for Exit Generator 






EXIT GENERATOR 


RE 

PX2512 

RE 

PL5360 

RE 

FL2546 

RE 

OP1047 

RE 

WL2242 



IA 

PX 


0 

MJ 

0 

30000 

1 

RP 

30010 

PX3 

2 

TP 

PX20 

PL 

3 

SP 

WL3 

17 

4 

TU 

A 

PL 

5 

TP 

WL1 

PL5 

6 

TV 

WL4 

PL7 

7 

RP 

30003 

PX11 

10 

TP 

PX30 

FL 

11 

SP 

WL3 

17 

12 

TU 

A 

FL 

13 

SF 

WL4 

17 

14 

TU 

A 

FL2 

15 

TP 

PX33 

0P1 

16 

RJ 

OP 

0P2 

17 

MJ 

0 

PX 

20 

0 

0 

10 

21 

0 

0 

2 

22 

0 

0 

0 

23 

0 

0 

0 

24 

0 

0 

0 

25 

0 

0 

0 

26 

MJ 

0 

30000 

27 

MJ 

0 

30000 

30 

0 

0 

3 

31 

0 

0 

2 

32 

0 

[0] 

0 

33 

0 

PL 

FL 


CA 

PX34 



} 

} 

} 

} 

} 

} 


> 


j 

} 


Generate Prelude Format 

Sentence call word to prelude 
Standard line no. 

CW Sub-routine heading—>2nd line of 
coding for sentence 

Generate Op File I Format 
Sentence call word to Op. File I 

CW subroutine heading to Op File I 

Prelude + Generated Coding and Op File I 
to tape and storage 
Exit 


Prelude Format 


Object Program Coding 

Op File I Format 

CW of Subroutine heading 
Parameters 


1106 










1108 



Type Generator - Cont* 


















Type Generator 


Then a 
call-word 


















































1112 



Type Generator - c 0 nt. 
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Box 5 


Form 

TU A C(OK)+l 
in A r 



vR.L. 


’CV" -> Ar "v" 



Form 

C(MK)+ML 
(address for 77_ 
C/W), send to 
Box 5 


TP TEMP 1 [ ? ] 

(store 77_C/W 

in mod const, list) 




Type Generator - Cont 



















C(GK)-GL6->TEMP 4 
C(TEMP 4)+C(MK)»GLl 
(ft lines for add, 
mod,) 


C(GL1)+C(GL2) 

+6 —> GL "v" 

(ft lines of gen 
coding) 


0-^GL3,GL4 
line ft —»GL5 


C(MK)-1 
—> TEMP 4 


Se 

process ML 




Type Generator - C 













TYPE GENERATOR 


Generation I 
Subroutines! 


REGIONS 


RE 

LSI465 



Library List Routine 

RE 

CS1211 



CS = CW Constant Call Word Routine 

RE 

BR537 



Machine Error Routine 

RE 

UP 421 



Excess Three Print-Out Routine 

RE 

OP1047 



Loads Generators and Op Files on Tape 

RE 

WA653 



Routine to Print: Sentence —(Type) 

RE 

BQ632 



Rtne.to rewind all tapes & stop computer 

RE 

TR1670 



TR ^ VX Excess Three to Flex Code 





Routine 

RE 

DL40102 



Dimension List 

RE 

BK2242 



String-Out Buffer Input 

RE 

GL5360 



Buffer Output Region for Generated Rtne. 

RE 

TY2512 

■> 



RE 

IN2513 




RE 

TG2530 




RE 

MV2672 




RE 

PR2760 




RE 

MX3030 




RE 

EX3044 


► 

Generator proper 

RE 

SG3076 




RE 

RL3137 




RE 

ST3143 




RE 

CK3147 




RE 

FU3165 




RE 

SB3173 




RE 

CN3176 




RE 

PC3272 




RE 

0K3273 




RE 

GK3274 




RE 

UK3275 




RE 

MK3276 




RE 

WK3277 


► 

Working Space 

RE 

TM3300 




RE 

SL3306 




RE 

VE3312 




RE 

FL3320 


< - 

— Region used to build up Op File 

RE 

ML3730 




RE 

UL4340 

* 
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Type Generator 


IA 

TY 



MJ 

0 

30000 

Exit 

CA 

TY1 







Initialization 


IA 

IN 


(3 

t 

© 

0 

TV 

TGI 41 

TG131 

1 

RP 

10003 

IN3 1 

► Initialize sub-generator 

2 

TV 

SG36 

SG10 J 

3 

TV 

CN73 

FU5 

Initialize Op File routine to FL2 

4 

TP 

CN 

PC 

Clear PC 

5 

TP 

CN 

UK 

UK —>0 

6 

TP 

CN1 

MK 

MK —> 1 

7 

TP 

CN31 

OK 

OK—> 1000 

10 

TP 

CN70 

GK 

GK —> GL6 

11 

TP 

CN 

WK I 

1* WK —> BK4 

12 

TU 

CN73 

WK J 

13 

14 

SP 

RJ 

CN56 

RL3 

0 1 

RL J 

[ MJ 0 37002 Generated 


CA 

IN15 






Main Routine 


IA 

TG 



0 

TP 

TG132 

TG23 

D 

1 

TP 

TG133 

TG126 


2 

TV 

CN67 

SB 

Initialize subscript storing routine 

3 

SP 

CN4 

0 

450—> A r 

4 

RJ 

CS 

CS1 

Place in constant pool 

5 

A 

SP 

SA 

CN57 

0 

RL3 

0 1 
0 

1 PR 0 L (carriage return flex) formed 

u 

7 

RJ 

RL J 

and put in output 

10 

SP 

CN5 

0 

79 —> A 

11 

RJ 

CS 

CS1 

Find CW 

12 

SA 

CN47 

0 1 

1 TP L(79) 37000 formed and put in 

13 

RJ 

RL3 

RL J 

I output 

14 

SP 

CN41 

0 

40 1 0 —> A 

15 

AT 

WK 

TR4 

Start to form entry line for TR 

16 

SP 

UK 

17 

and inform TR of location for output 

17 

AT 

CN63 

TR3 J 

20 

TU 

WK 

TG22 

r —> BOX 1 

21 

RA 

WK 

CN45 

r + 2 —>r 

22 

SP 

[30000] 0 

Examine rth word 

23 

[o 

30000 

30000J 

F = TP A TM; ? 2 = MJ 0 TG36 
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24 

TJ 

CN23 

TG30 


< 77000? 

25 

TP 

TG134 

TG126 


No - i.e., 77-type variable. (T)-> (C5) 

26 

RJ 

FU4 

FU 


Insert in Op File item 

27 

MJ 

0 

TG34 


Jump to (1) 

30 

TJ 

CN17 

TG33 


< 65000? 

31 

TU 

CN71 

TG127 


No - i.e., 65,66 — so w CV" wanted 

32 

MJ 

0 

TG34 


Jump to (E) 

33 

TU 

CN72 

TG127 


Must be 64-i.e., M IC" wanted (S)->(M7) 

34 

TP 

TG135 

TG23 



35 

MJ 

0 

TG55 


Jump to (5) 

36 

RP 

30004 

TG53 


m • /» A / N _ 

37 

EJ 

CN25 

TG40 

j 

lesi. ior, uq 1 ; or none 


CA 

TG40 





IA 

TG40 




40 

MJ 

0 

TG47 


Jump to test PC 

41 

MJ 

0 

TG45 


A 0 Jump to set (n) 

42 

RA 

PC 

CN2 


( PC + 2 -> PC 

43 

RS 

PC 

CNl 


) PC - 1 -> PC 

44 

MJ 

0 

TG55 


Jump to © 

45 

TV 

TG136 

TGI 31 



46 

MJ 

0 

TG51 


Jump to set (j) 

47 

SP 

PC 

0 



50 

ZJ 

TG55 

TG51 


If zero, continue; non-zero, jump to © 

51 

TP 

TG137 

TGI 11 



52 

MJ 

0 

TG71 


Jump to Qy 

53 

TP 

A 

TM 1 


Not any of above,.'. CW. Save in TEMP 2 

54 

TJ 

CN21 

TG57 


C(A) < 70000? 

55 

RA 

TR4 

CNl 


No,.*, a dummy variable-count 1 more word 

56 

MJ 

0 

TG20 


for TR and jump to © 

57 

TJ 

CN20 

TG62 


CCA) < 67000? 

60 

RJ 

SB2 

SB 


No - a numerical subscript - so note 

61 

MJ 

0 

TG55 


and jump to © 

62 

TJ 

CM 17 

TG65 


CCA) < 65000? 

63 

TP 

CN14 

TM2 


No; a floating variable, so "CV”—>TEMP 3 

64 

MJ 

0 

TG70 


and jump to © 

65 

TJ 

CN 16 

TG55 


CCA) < 64000? If so DUMMY 

66 

TP 

CN15 

TM2 


No - so subscript, so "IC” —> TEMP 3 

67 

RJ 

SB2 

SB 


Store in subscript list 

70 

TP 

TG140 

TGI 11 



71 

RJ 

TR2 

TR 


Go translate 

72 

TP 

CN24 

Q 


V mask —> Q 

73 

QT 

TR3 

TM3 


Save n Cnumher flex words) in TEMP 4 

74 

SP 

MK 

0 


Current number modifiable constants 

75 

SA 

CN65 

0 


Plus ML, is address at which to store 

76 

TV 

A 

TG101 


Parameter about to be formed 

77 

SP 

UK 

a 


CCUK) 


CA 

TGI 00 
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IA 

TG100 






100 

SA 

CN11 

17 



+ 36000 = "u" of parameter 

101 

AT 

TM3 

[30000] 





102 

SP 

MK 

0 



C(MK) 


103 

SA 

CN10 

17 



4- 35000 = CW for parameter location 

104 

SA 

CN13 

0 



And PT is routine used 

105 

RJ 

SG34 

SG 



Subgen to produce coding 

106 

RA 

UK 

TM3 



UK + C (TEMP 4) 

-» UK 

107 

RA 

MK 

CN1 



MK + 1 —>MK 


110 

RJ 

CK3 

CK 





111 

[o 

30000 

30000] 



Jl = SP TMl 17; J 2 s MJ 0 TG115 

112 

SA 

TM2 

0 



Form "CW required" "IC or CV" 

113 

RJ 

SG34 

SG 



Subgenerator 


114 

MJ 

0 

TG14 



Jump to ® 


115 

SP 

TG101 

17 

1 




116 

TU 

A 

TG117 

f 

► 

Increase last parameter by 1 to allow 

117 

RA 

[30000] 

CNl 

J 


for A = A " 

120 

SP 

UK 

0 





121 

SA 

CN64 

0 


► 

Store "'l' A= A" : 


122 

TV 

A 

TG123 



in UL 

123 

TP 

CN42 

[30000] 





124 

RA 

UK 

CNl 



UK 4- 1 —»UK 


125 

RJ 

CK3 

CK 





126 

[o 

30000 

30000] 



L x = SP TM 17; 
Mj ^add in "IC 

L = MJ 0 MV 

127 

SA 

[30000] 0 



; M 2 4 add in "CV" 

130 

RJ 

SG34 

SG 



Subgenerator 


131 

MJ 

0 

[30000] 



Either back, or 

out to processor 

132 

TP 

A 

TM 



F, I 


133 

SP 

TM 

17 



^2 

F 
r 0 


134 

MJ 

0 

MV 




135 

MJ 

0 

TG36 




136 

0 

0 

PR 



N 2 

” Constants 

137 

MJ 

0 

TG115 



J 2 


140 

SP 

TM1 

17 



J 1 

N{ (i.e.. A) 


141 

0 

0 

TG 





CA 

TG142 






IA 

MV 






0 

RS 

SB 

CNl 





1 

LA 

A 

17 


► 

Obtain last stored subscript CW 

2 

TU 

A 

MV3 





3 

SP 

[30000] 

17 





4 

SA 

CN52 

0 



Add in SP_ 


5 

RJ 

RL3 

RL 





6 

SP 

TM 

0 



Find appropriate dimension box 

7 

TU 

6 

MV10 


► 



10 

RP 

20000 

BR1 





11 

EJ 

DL 

MV12 





12 

SN 

Q 

17 



- jn 4- r 
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13 

SA 

MV10 

0 


14 

SA 

MV 11 

0 

—^Address of 2nd line of box 

15 

TU 

A 

MV16 


16 

TP 

[30000] Q 

2nd line —> Q 

1 "7 

L 1 

TP 

Q 

TM3 

2 subs, modulus —>TEMP 4 

20 

QT 

CN24 

A 

2 subs —> A 

21 

EJ 

CN1 

MV35 

= 1? 

22 

ST 

CN2 

TM2 

No, form Gstore S-2 

23 

TU 

CN67 

MV30 

Prepare to extract CW in order 

24 

RA 

MV 16 

CN33 

Form address of 3rd line of dim. box 

25 

TU 

A 

MX 1 

“ and initialize m-extractor 

26 

TV 

MX 12 

MX1 J 

27 

RJ 

MX 11 

MX 

Upon return, CW for 1 mult in A "u 1 " 

30 

SA 

[30000] 

0 

Add in CW of 1 subscript 

31 

SA 

CN60 

0 

and MA _ 

32 

RJ 

RL3 

RL 

Store 

33 

34 

RA 

IJ 

MV30 

TM2 

CN33 ] 
MV27 j 

' Prepare to pick up next subscript, then 

back 

35 

LQ 

TM3 

25 

Modulus —=>Q v" 

36 

QT 

CN24 

A 

— >A 

37 

RJ 

CS 

CS1 

Place in constant pool 


CA 

MV40 




IA 

MV40 



40 

SA 

CN55 

0 

TJ L(Mod) 2 

41 

SA 

OK 

0 

TJ L(Mod) C (OK) + 2 

42 

RJ 

RL3 

RL 

Store 

43 

SP 

Q 

17 

CW (Mod) — >A "u" 

44 

SA 

CN61 

0 

DV Mod Q 

45 

RJ 

RL3 

RL 

Store 

46 

SP 

MK 

0 

L Form 35 - type pseudo CW of base 77- 

47 

SA 

CN10 

17 

I in A "u" 

50 

SA 

CN53 

0 

—>SA L(CW) 17 

51 

RJ 

RL3 

RL 

Store 

52 

SP 

CN51 

0 

TU A 1 

53 

SA 

OK 

0 

TU A "N.I." 

54 

RJ 

RL3 

RL 

Store 

55 

SP 

CN14 

0 

And M CV” is routine used 

56 

RJ 

SG34 

SG 

^ ■> 

Subgenerator 

57 

SP 

MK 

0 

1 C(MK) + ML is address in mod. list for 

60 

SA 

CN65 

0 

f 77 - CW 

61 

TV 

A 

MV62 


62 

TP 

TM 

[30000] 

Store base CW 

63 

RA 

MK 

CN1 

MK f 1 * —> MK 

64 

RJ 

CK3 

CK 

Check length 

65 

MJ 

0 

TGI 31 

Jump back to ® (Main Routine) 


CA 

MV66 
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Sub-Processor 



IA 

PR 



0 

SP 

CN6 

0 

MJ 0 1000 

1 

RJ 

RL3 

RL 

Stored 

2 

TP 

CN34 

ML 

Set up index address line 

3 

SP 

OK 

0 


4 

TP 

A 

TM 

35000 (i.e., ML) Val. rel. 1000 

5 

AT 

MK 

TM1 

36000 (i.e„ UL) val. rel. 1000 

6 

AT 

UK 

TM2 

37000 (i.e., temp) val. rel. 1000 

7 

ST 

CN7 

FL1 

Total # lines in running prog.(incl.temps) 

10 

SP 

BK3 

17 

CW this routine 

11 

TP 

A 

GL 

CW this routine to u of output line 

12 

SA 

FU5 

0 1 

L CW and number of lines complete Op File I 

13 

ST 

CN66 

FL J 

1 item 

14 

SP 

GK 

0 1 

1 C(GK) - GL6 = # lines for modification by 

15 

ST 

CN70 

TM3 J 

1 this routine 

16 

AT 

MK 

GL1 


17 

TP 

UK 

GL2 

, Complete prelude 

20 

TP 

CN 

GL3 


21 

TP 

CN 

GL4 


22 

TP 

BKl 

GL5 


23 

RS 

TM3 

CNl 

Set up index for GL mod. 

24 

SP 

CN70 

17 


25 

TU 

A 

EX 

Extract words from GL6 

26 

TV 

CN70 

EX7 

Store words at GL6 

27 

RJ 

EX13 

EX 

Exchange 35, 36, 37 *s in GL 

30 

TU 

CN65 

EX 


31 

SP 

MK 

0 

► 

32 

ST 

CNl 

TM3 

Now process mod. consts. 

33 

RJ 

EX13 

EX 


34 

TV 

EX 7 

PR40 

Set in address in GL for UL consts. 

35 

SP 

UK 

17 


36 

AT 

CN62 

PR37 

Form RP order 

37 [0 

30000 

30000] 


40 

TP 

UL 

[30000] 

Repeated transfer from UL —->GL 

41 

SP 

GL1 

0 1 

1 

42 

SA 

GL2 

0 

r Total # output lines 

43 

SA 

CN3 

0 J 

1 

44 

TV 

A 

GL 


45 

TP 

CN43 

0P1 

Parameter —>0P 

46 

RJ 

OP 

0P2 

Output 

47 

MJ 

0 

TY 

EXIT 


CA 

PR50 
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Subroutine to Extract Multipliers and Obtain Appropriate CW*s 


0 

T A 

i-M 

TP 

TIJT V 

1V1A 

[ 30000 ! 

0 

1 line — >0 

1 

MJ 

0 

[30000] 

Switch (initially MX2) 

2 

TV 

MX 13 

MX1 

FLIP 

3 

MJ 

0 

MX 7 


4 

LQ 

Q 

25 

Reverse "u” and "v" 

5 

RA 

MX 

CN33 

Modify entry for next application 

6 

TV 

MX 12 

MX1 

FLOP 

T 

AT 

AMO A 

A 

UAnaob 11 

1 

V 1 


r1 

10 

RJ 

cs 

CSl 

Place in constant pool 

11 

MJ 

0 

[ 30000 ] 

Exit 

12 

0 

0 

MX2 


13 

0 

0 

MX 4 



CA 

MX14 



Replacing 35- 

. 36— t 

37- Addresses with Values Relative 1000 


IA 

EX 



0 

TP 

[30000] Q 

1 line to Q 

1 

QT 

CN44 

A 

Inspect "Op. code” 

2 

EJ 

CN35 

EX7 

If a 10 line, O.K. 

3 

RJ 

EX31 

EX14 

Process ”v" 

4 

LQ 

Q 

25 

Shift *u"—>"v" 

5 

RJ 

EX31 

EX14 

Process 

6 

LQ 

Q 

17 

Restore Q 

7 

TP 

Q 

[30000] 

And output it in GL 

10 

RA 

EX 

CN33 


11 

RA 

EX7 

CN1 


12 

IJ 

TM3 

EX 

Back for next line 

13 

MJ 

0 

[30000] 

EXIT 

14 

TP 

Q 

TM4 

Save Q 

15 

QT 

CN23 

TM5 

Mask off 1st two digits 

16 

RP 

30003 

EX31 


17 

EJ 

CN10 

EX20 


20 

MJ 

0 

EX26 

35 

21 

MJ 

0 

EX24 

36 

22 

RA 

TM4 

TM2 

37 Add in val (37) 

23 

MJ 

0 

EX27 


24 

RA 

TM4 

TM1 

36 Add in val (36) 

25 

MJ 

0 

EX27 


26 

RA 

TM4 

TM 

35 Add in val. (35) 

27 

SS 

TM5 

0 

Subtract original 1st two digits 

30 

TP 

A 

Q 

Set result back in Q 

31 

MJ 

0 

[30000] 

Exit back to main level 


CA 

EX 32 
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Subgenerator, to Produce Coding Handling Parameters 



IA 

SG 



0 

TP 

A 

Q 

"u" & "v" —>Q for PT, IC, CV 

1 

SA 

CN46 

0 

Add in TP _ 

2 

RJ 

RL3 

RL 

Store 

3 

SP 

CN36 

0 

10 0 3 

4 

RJ 

ST3 

ST 

Store 

5 

QT 

CN24 

SG37 

Name of routine ("V”) to temp. 

6 

EJ 

CN14 

SG11 

Is it CV? 

7 

EJ 

CN15 

SG12 

Is it IC? 

10 

RJ 

SG40 

[30000] 

PT 1 f 

11 

RJ 

SG40 

[30000] 

CV>Used before? <Initialized to SG13 

12 

RJ 

SG40 

[30000] 

icj l 

13 

RJ 

FU4 

FU 

No, insert in Op File 1, List 1, then 

14 

SP 

SG37 

17 

ensure this path not taken again 

15 

RJ 

IS 

LSI 


16 

RS 

SG40 

CN1 

Find address to be changed 

17 

TV 

A 

SG20 

20 

TV 

SG35 

[30000] 


21 

SP 

SG37 

0 

Name to A "v" 

22 

SA 

CN50 

0 

Add in TP 35000 _ 

23 

RJ 

RL3 

RL 

Store 

24 

SP 

CN37 

0 

10 0 4 

25 

RJ 

ST3 

ST 

Store 

26 

SP 

SG37 

17 


27 

SA 

SG37 

0 


30 

31 

SA 

RJ 

CN54 

RL3 

0 

RL 

Add in RJ _ 

Store 

32 

SP 

CN40 

0 

10 2 0 

33 

RJ 

ST3 

ST 


34 

MJ 

0 

[30000] 

EXIT 

35 

0 

0 

SG26 


36 

0 

0 

SG13 


37 

40 

0 

0 

30000 

30000 

30000 \ 
30000 J 

Erasable 


CA 

SG41 




IA 

RL 



0 

RJ 

ST3 

ST 

Store 

1 

RA 

OK 

CN1 

Increment OK 

2 

RJ 

CK3 

CK1 

Check size of routine 

3 

MJ 

0 

[30000] 

Exit 


CA 

RL4 
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0 

IA 

TV 

ST 

GK 

STl 


1 

TP 

A 

[ 30000] 

Store 

2 

RA 

GK 

CNl 

Increment GK 

3 

MJ 

0 

[ 30000] 

Exit 


CA 

ST 4 




Error Print-Out Routine 



IA 

CK 






0 

SP 

OK 

0 

1 

| 



1 

SA 

MK 

0 

i 

i 

f Sum 3 counters 



2 

SA 

UK 

0 

J 

1 



3 

TJ 

CN32 

[30000] 





4 

RJ 

WA 

WAl 

•> 

Print-Out: Sentence 

_(Type) 


5 

6 

TP 

RJ 

CK10 
UP 2 

UP 3 

UP 

1 

j 

^ Print-Out: Generated 

Sentence Too 

Long 

7 

MJ 

0 

BQ6 


Jump to rewind tapes 

and computer 

stop 

10 

40 

CKll 

5 


Parameter for print-i 

aut routine 


11 

32 

30503 

05424 


GENERA 



12 

66 

30270 

16530 


TEDASE 



13 

50 

66305 

02630 


NTENCE 



14 

01 

66515 

10146 


Atooal 



15 

51 

50322 

27777 


ONG. 




CA 

CK16 









Updating 

Op File 1 Item 





IA 

FU 



0 

LA 

A 

17 

Shift CW to "u" field 

1 

TV 

FU5 

FU2 

Where? 

2 

TP 

A 

[30000] 

Store in item 

3 

RA 

FU5 

CNl 

Increment counter 

4 

MJ 

0 

[30000] 

Exit 

5 

0 

0 

[30000] 

Counter 


CA 

FU6 





Storing SS 

in Subscript List (SL) 


IA 

SB 



0 

TP 

A 

30000 

Store subscript CW 

1 

RA 

SB 

CNl 

Increment ”v" address 

2 

MJ 

0 

30000 

and exit 


CA 

SB3 







Constants 


IA 

CN 



0 

0 

0 

0 


1 

0 

0 

1 


2 

G 

0 

2 


3 

0 

0 

6 


4 

0 

0 

45 



1123 



5 

0 

0 

117 

6 

MJ 

0 

1000 

7 

0 

0 

777 

10 

0 

0 

35000 

11 

0 

0 

36000 

12 

0 

0 

37000 

13 

0 

0 

50002 

14 

0 

0 

50062 

15 

0 

0 

50112 

16 

0 

0 

64000 

17 

0 

0 

65000 

20 

0 

0 

67000 

21 

0 

0 

70000 

22 

0 

0 

76000 

23 

0 

0 

77000 

24 

0 

0 

77777 

25 

0 

0 

40 

26 

0 

0 

120 

27 

0 

1 

0 

30 

0 

2 

0 

31 

0 

0 

1000 

32 

0 

0 

1776 

33 

0 

1 

0 

34 

0 

37000 

37000 

35 

10 

0 

0 

36 

10 

0 

3 

37 

10 

0 

4 


CA 

CN40 



IA 

CN40 


40 

10 

2 

0 

41 

40 

1 

0 

42 

57 

04440 

40000 

43 

0 

GL 

FL 

44 

77 

0 

0 

45 

0 

2 

0 

46 

TP 

0 

0 

47 

TP 

0 

37000 

50 

TP 

35000 

0 

51 

TU 

32000 

1 

52 

SP 

0 

0 

53 

SA 

0 

17 

54 

RJ 

0 

0 

55 

TJ 

0 

2 

56 

MJ 

0 

37002 

57 

PR 

0 

0 


Pseudo-address codes 
PT "1 

CV r Library call words 

IC J 



Check on length of gen. coding 


1124 



60 

MA 

0 

0 

61 

M 

0 

31000 

62 

RP 

30000 

PR41 

63 

0 

UL 

0 

64 

0 

0 

UL 

65 

0 

ML 

ML 

66 

0 

0 

FL 

67 

0 

SL 

SL 

70 

0 

0 

GL6 

71 

0 

CN14 

0 

*-70 

iC 

A 

V 

CN15 

A 

u 

73 

0 

BK4 

FL2 


CA 

CN74 



1125 



1126 




List Generator Flow Charts 










112 ’ 



Build MM list 
(C/W f s of multi¬ 
pliers & moduli 
in constant 
pool) 



















1128 


# columns 
= # vari¬ 
ables in 
sentence 




# Vbles = 1? 


Yes 


No 


Main increment 
after one appli¬ 
cation of this 
routine is 
20 io (1 bkt.) 
20—>NC 


_ t— 

4 ->NC 
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1130 

























1132 














1133 









1134 




) Y es 

Clear ER, as 

_ J 

/ > 

floating pt„ 
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LIST GENERATOR 


REGIONS 


Generation 

Subroutines 


RE 

LSI465 

RE 

CS1211 

RE 

BR537 

RE 

OP1047 

RE 

RW50023 

RE 

DL40102 

RE 

BK2242 

RE 

GL5360 

RE 

WW12 

RE 

LI2512 

RE 

IN2513 

RE 

PA2532 

RE 

PB2632 

RE 

PC2666 

RE 

RL3113 

RE 

ST3116 

RE 

0R3121 

RE 

CN3136 

RE 

0K3173 

RE 

TK3174 

RE 

MK3175 

RE 

VK3176 

RE 

NC3177 

RE 

ER3201 

RE 

TC3204 

RE 

SL3205 

RE 

MM3212 

RE 

FL3236 

RE 

NL71002 

RE 

TN71003 

RE 

BI71004 

RE 

BF71005 


Library List Routine 

CS = CW Constant Call Word Routine 

Machine Error Routine 

Routine to Transfer Generated Routine and Op File 
to Tape 

List of call words of tape numbers referenced for 
use of STOP instruction 
Dimension List 

Buffer input region for string-out 
Buffer output region for generated routine 

Fixed location where READ and LIST indicators are 
stored 


f Generator proper 


Used to store Op File for LIST 

7 in these addresses is 


Fixed output locations 
LIST Buffer location 


a code figure to keep 
processor from modifying 
addresses 
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IA 

LI 




MJ 

0 

30000 

Exit 


CA 

LI 1 






Preliminary Initialization 


IA 

IN 



0 

TP 

CN7 

OK 

14io running lines at least 

1 

TP 

CN3 

TK 

3 ”10 lines” 

2 

TP 

CN 

MK 

0 modifiable constants 

3 

TP 

BK5 

VK 

Set up variable counter 

A 

TUT 
± u 


PA 

Stsrt scanning string—out at BK7 

5 

TV 

CN25 

PA15 

Build subscript List from SL 

6 

TV 

CN26 

PA34 

Build mult. & mod. List from MM 

7 

10 

SP 

TP 

BK3 

A 

17 1 

GL J 

r Routine CW to Prelude 

11 

TP 

CN27 

FL2 

Note CW of IW routine 

12 

TV 

CN24 

PA5 

Future cross-refs, to be stored at FL3 

13 

AT 

CN3 

FL 

Call word and at least no. 3 of lines 





1st line of Op File 

14 

TP 

CN 

GL3 

0 inputs 

15 

TP 

CN 

GL4 

0 outputs 

16 

TP 

BK1 

GL5 

Line number to Prelude 


CA 

IN 17 






’’LIST” Generator - First Pass 


IA 

PA 



0 

SP 

[30000] 

0 

Inspect rth word of string-out 

1 

TJ 

CN14 

PA55 

Multivalued? 

2 

TU 

6 

PA3 

Yes t scan Dimension List 

3 

RP 

[30000] 

BR1 


4 

EJ 

DL 

PA5 


5 

6 

LT 

RA 

10017 

FL 

[30000] 1 
CN1 J 

^ Build Op File 1 item 

7 

SN 

0 

17 

-jn F r 

10 

SA 

PA3 

0 

+r 

11 

SA 

PA4 

0 

+DL =)add. of 2nd line (modulus; S) 

12 

TU 

A 

PA13 


13 

TP 

[30000] 

Q 


14 

QT 

CN20 

ER 

Using v-mask, note # subscripts (s) 

15 

TP 

A 

[30000] 

Build subscript list 

16 

EJ 

CN1 

PA40 

Is s = 1? 

17 

ST 

CN2 

ER1 

No, form & store (S-2) 

20 

TU 

PA13 

PA37 

Note address of 2nd line 

21 

RA 

PA13 

CN15 

Form address of 3rd line 

22 

TU 

A 

PA24 


23 

TP 

PA76 

PA25 

Set flip-flop of m-extractor 

24 

TP 

[30000] 

Q 

1 line of dim. box —>Q 

25 

[o 

30000 

30000] 

© TP © PA25; © MJ 0 PA27 
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26 

MJ 

0 

PA32 

Jump to extract v-field 

27 

LQ 

Q 

25 

Q ”u” —> Q "v" 

30 

RA 

PA24 

CN15 

Modify for next line 

31 

TP 

PA76 

PA25 

Reset flip-flop to (l) 

32 

QT 

CN20 

A 

Extract v field 

33 

RJ 

CS 

CSX 

Insert in constant pool, and find < 

34 

TP 

A 

[30000] 

Build MM list (A "u”) 

35 

RA 

PA34 

CN1 


36 

IJ 

ER1 

PA24 

Back for more multipliers 

37 

TP 

[30000] Q 

2nd line again to Q 


CA 

PA40 




IA 

PA40 



40 

LQ 

Q 

25 

Shift modulus to ”v" and extract i 

41 

QT 

CN20 

A 


42 

RJ 

CS 

CS1 

Place in pool 

43 

TV 

PA34 

PA44 1 


44 

TP 

A 

[30000] J 

- and place in MM list 

45 

RA 

PA34 

CN1 


46 

SP 

ER 

17 

S — >A ”u” 

47 

AT 

PA 

PA 

Bring r count up to date 

50 

RA 

PA5 

CNl 

Op File Item building op. updated 

51 

RA 

PA15 

CN1 

SL list building op. updated 

52 

RA 

OK 

CN4 

OK + 4 —> OK 

53 

AT 

ER 

OK 

OK + 5 —>0K 

54 

RA 

MK 

CN1 

1 mod constant 

55 

RA 

OK 

CN2 

OK + 2 —>0K (S.V. variable entry) 

56 

RA 

TK 

CNl 

One ”10 line” 

57 

RA 

PA 

CN15 

r + 1 —»r 

60 

RS 

VK 

CNl 

vk - 1 —> vk 

61 

ZJ 

PA 

PA62 

If zero, wrap up this pass. 

62 

SP 

BK5 

0 

Number variables — >A 

63 

EJ 

CN1 

PA73 

= 1? 

64 

TP 

CN10 

NC 

No, > 1. 20 10 —> INC 

65 

EJ 

CN5 

PA74 

= 5? 

66 

RA 

OK 

CNl 

No, OK + 1 — >0K 

67 

SP 

CN5 

0 

5 —> A 

70 

SS 

BK5 

1 1 

^ 2(5 - v) = SUBINC 

71 

TP 

A 

NCI J 


72 

MJ 

0 

PB 

Jump to initialization. Pass 2 

73 

TP 

CN4 

NC 

1 vble, INC = 4 

74 

TP 

CN 

NCI 

1 or 5 vbles., SUBINC = 0 

75 

MJ 

0 

PB 

Jump to init., Pass 2 

76 

TP 

PA77 

PA25 

l 

77 

MJ 

0 

PA27 J 

r Constants for m flip-flop 


CA 

PA100 
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Initialization, Pass 2 



IA 

PB 



0 

SP 

OK 

0 


1 

1 

AT 

MK 

ER 


2 

AT 

TK 

GL1 

C(OK)+C(MK)+C(TK) = # lines for add. mod 

3 

SS 

MK 

0 


4 

SA 

CN23 

0 

C(0K)+C(TK)+GL6 = add. rel. GL for mods. 

5 

TV 

A 

PC53 


6 

SP 

ER 

0 

C(OK)+C(MK)+1000 

7 

AT 

CN12 

TC 

= XS3 add. rel. 1000 

10 

ST 

MK 

MK 

C(0K)+1000 = mod. const, add. rel. 1000 

11 

TP 

BK6 

GL2 

# unmods. 

12 

SP 

BK6 

0 


13 

AT 

ER 

FL1 

Total number of running lines 

14 

TP 

BK5 

VK 

Set variable counter 

15 

TU 

CN24 

PC51 

Set to scan at BK7 

16 

TU 

CN25 

PC55 

Start obtaining # subs from SL list 

17 

TU 

CN26 

PC 74 

Start obtaining mults. and mods, from MM 





list 

20 

TP 

CN12 

OK 

Set OK to 1000 

21 

TV 

CN23 

ST 

Start storing output at GL6 

22 

SP 

CN27 

0 

”50077” to A 

23 

RJ 

LS 

LSI 

Update list 1 

24 

SP 

GL1 

0 


25 

SA 

GL2 

0 


26 

SA 

CN6 

0 

+- 6 = # lines for prelude 

27 

TV 

A 

GL 


30 

SP 

TC 

0 

XS3 add. rel. 1000 

31 

SA 

BK6 

0 

4- # heads 

32 

SA 

0R14 

0 


33 

RJ 

RL2 

RL 

Store MJ 0 Exit 


CA 

PB34 







Second Pass 


IA 

PC 



0 

SP 

BKl 

0 

This line number 

1 

RJ 

CS 

CS1 

Insert in constant pool (CW —>A ”u”) 

2 

SA 

OR 

0 

Add in TP-A 

3 

RJ 

RL2 

RL 


4 

SP 

0R1 

0 

EJ NL 1011 

5 

RJ 

RL2 

RL 


6 

SP 

0R2 

0 

RJ IW IW 

7 

RJ 

RL2 

RL 


10 

SP 

CN16 

0 

Basic "ten line” 

11 

SA 

CN2 

0 

4 2 in "v" 

12 

RJ 

ST2 

ST 

Store it 

13 

TP 

GL7 

ER 

"TP CW (LN) A 
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14 

TV 

CN21 

ER 

—>"TP CW(LN) 

15 

SP 

ER 

0 

16 

RJ 

RL2 

RL 


17 

TP 

OR 

ER 

► TP CW(TN) F tn 

20 

TU 

BK4 

ER 

21 

TV 

CN22 

ER 


22 

SP 

ER 

0 


23 

RJ 

RL2 

RL 

Store this line 

24 

SP 

GL2 

17 

# heads —> A "u” 

25 

SA 

0R3 

0 

RP 3n 1010 

26 

RJ 

RL2 

RL 

Store 

27 

SP 

TC 

17 

XS3 add. rel. 1000 

30 

TP 

OR 

ER ] 

1 

31 

TU 

A 

ER 

\ TP L(XS3) BF 

32 

TV 

CN17 

ER J 

1 

33 

SP 

ER 

0 


34 

RJ 

RL2 

RL 

Store this line 

35 

SP 

GL2 

0 

# heads 

36 

SA 

CN10 

0 

f 20 io 

37 

SA 

NCI 

0 

+ SUB INC = t^otal RA const. 


CA 

PC40 




IA 

PC40 



40 

RJ 

CS 

CS1 

Insert in constant pool 

1 

41 

SP 

0R4 

0 1 

42 

SA 

Q 

0 

r RA BI L (INC 1) to output 

43 

RJ 

RL2 

RL J 

1 

44 

SP 

0R5 

0 

[ TV BI IW to output 

45 

RJ 

RL2 

RL 

1 

46 

SP 

CN32 

0 

Basic 10 line 

47 

SA 

CN11 

0 

+ appropriate value to reach IW "store" 





line 

50 

RJ 

ST2 

ST 


51 

SP 

[30000] 

0 

Examine rth word 

52 

TJ 

CN14 

PC 130 

Multivalued 

53 

TP 

A 

[30000] 

Yes r store this CW as a running mod.const 

54 

RA 

PC53 

CN1 

Set for next time 

55 

TP 

[30000] 

ER 

# SS —>ER 

56 

RA 

PC55 

CN15 

Modify 

57 

SP 

ER 

17 

# SS —>A "u" 

60 

SA 

PC51 

0 

Find location of 

61 

TU 

A 

PC62 

Last subscript for "SP 0" order 

62 

SP 

[30000] 

17 

Last CW —>A "u" 

63 

SA 

0R6 

0 

Add in SP 0 

64 

RJ 

RL2 

RL 

Store this line 

65 

SP 

ER 

0 

More than 1 subscript? 

66 

EJ 

CN1 

PC 102 

67 

ST 

CN2 

ER1 

Yes, form and store (S-2) 

70 

SP 

PC51 

0 


71 

SA 

CN15 

0 

Add 1 uto find first subscript 


1140 



72 

TU 

A 

PC73 


73 

SP 

[30000] 

0 

Subscript —> v field 

74 

SA 

[30000] 

0 

Multiplier —>u field 

75 

SA 

0R7 

0 

MA —> Op field 

76 

RJ 

RL2 

RL 

Store 

77 

RA 

PC73 

CN15 

Modify to pick up next sub 


CA 

PC 100 




IA 

PC100 



100 

RA 

PC74 

CN15 

To pick up next multiplier 

101 

IJ 

ER1 

PC 73 


■* r\r\ 

JLUZ 

TU 

PC 74 

PC 105 

To pick up modulus 

103 

RA 

PC74 

CN15 

Set for next time 

104 

SP 

0R10 

0 

TJ-2 

105 

TP 

[30000] ER1 

Save CW (Mod) 

106 

SA 

ER1 

0 

TJ CW (Mod) 2 

107 

SA 

OK 

0 

Complete TJ line 

110 

RJ 

RL2 

RL 

Store 

111 

SP 

ER1 

0 

—CW (Mod)- 

112 

SA 

0R11 

0 

DV— Q 

113 

RJ 

RL2 

RL 

Store 

114 

SP 

MK 

17 

Add. rel. 1000 of mod. con: 

115 

SA 

0R12 

0 

"SA CW (Base) 17" 

116 

RJ 

RL2 

RL 


117 

RA 

MK 

CN1 

Modify MK for next time 

120 

SP 

0R13 

0 

TU A 1 

121 

SA 

OK 

0 

Complete line 

122 

RJ 

RL2 

RL 


123 

SP 

ER 

17 

S A "u" 

124 

AT 

PC51 

PC51 

r + s —> r 

125 

TP 

CN 

A 

Clear A and ER 

126 

TP 

A 

ER 

then jump to form 

127 

MJ 

0 

PC 134 

TP [ ] A 

130 

TP 

CN1 

ER 

Single valued. 1 ER "v" 





fixed) 

131 

TJ 

CN13 

PC 133 

Text v, 65000 

132 

TP 

CN 

ER 

Floating, clear ER "v" 

133 

LA 

A 

17 

CW -> A "u" 

134 

SA 

OR 

0 

TP-A 

135 

RJ 

RL2 

RL 

Store 

136 

SP 

0R2 

0 

RJ IW IW 

137 

RJ 

RL2 

RL 

Store this line 


CA 

PC140 




(i.e. 


, assume 
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IA 

PC140 


140 

SP 

CN16 

0 

141 

SA 

ER 

0 

142 

RJ 

ST2 

ST 

143 

RA 

PC51 

CN15 

144 

RS 

VK 

CN1 

145 

ZJ 

PC51 

PC 146 

146 

SP 

NC 

0 

147 

RJ 

CS 

CS1 


Basic 10-line (10 3 0) 

Plus 0 or 1 

r + 1 —> r 

Vble count decreased by 1 
INC—>A 

Place in const, pool 


150 

SP 

0R4 

0 

151 

SA 

Q 

0 

152 

RJ 

RL2 

RL 

153 

SP 

CN30 

0 

154 

RJ 

CS 

CS1 

155 

TP 

0R10 

ER 

156 

TU 

A 

ER 

157 

TV 

CN12 

ER 


RA BI — 
Complete line 
Store 
BF165 —>A 
Insert in pool 


TJ LCBF165) 1000 formed and put in output 


160 SP ER 0 

161 RJ RL2 RL J 

162 SP 0R2 0 1 p T TW T „ . . . 

163 RJ RL2 RL J RJ IW IW t0 out P ut 

164 SP CN16 0 Basic 10-line 

165 SA CN2 0 Add 2 to complete it 

166 RJ ST2 ST 

167 SP NCI 0 Subinc —>A 

170 ZJ PC 171 PC175 Zero? 

171 RJ CS CSX No, insert in pool 

172 SP 0R4 0 ] 

173 SA Q 0 r RA BI Subinc formed & put in output 

174 RJ RL2 RL J 

175 TP 0R14 ER 1 

176 TV CN12 ER r MJ 0 1000 formed in A 

177 SP ER 0 J 

CA PC200 

IA PC200 


200 

RJ 

RL2 

RL 

Store 

201 

SP 

GL2 

17 

# heads —> A "u" 

202 

SA 

CN17 

0 

+ 30000 

203 

TU 

A 

PC206 


204 

TU 

PC51 

PC207 


205 

TV 

PC53 

PC207 

" Transfer heading codes 

206 

RP 

to] 

PC210 ! 

207 

TP 

[30000] [30000] J 


210 

TP 

CN31 

0P1 

Parameter to output handler 

211 

RJ 

OP 

0P2 

Go output 

212 

TP 

CN15 

Q 

1— >Q 

213 

QS 

CN15 

ww 

Inform processor of "LIST" 
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214 

SP 

BK4 

0 

Tape # CW —> A 

215 

TU 

RW 

PC216 


216 

217 

RP 

tr t 

JUU 

[o] 

RWl 

PC220 1 

PC224 J 

Already in list of CW*s? 

220 

RA 

RW 

CN33 

No, increment index by 1 

221 

SA 

CN34 

0 

Add [RW] 

222 

TV 

A 

PC223 


223 

TP 

BK4 

[30000] 

And insert in list 

224 

MJ 

0 

LI 

Exit 


CA 

PC225 




IA 

RL 



0 

RJ 

ST2 

ST 


1 

RA 

OK 

CN1 


2 

MJ 

0 

[30000] 



CA 

RL3 




IA 

ST 

[30000] 


0 

TP 

A 


1 

RA 

ST 

CN1 


2 

MJ 

0 

[30000] 



CA 

ST 3 




IA 

OR 



0 

TP 

0 

32000 


1 

EJ 

NL 

1011 


2 

RJ 

50077 

50077 


3 

RP 

[30000] 

1010 


4 

RA 

BI 

0 


5 

TV 

BI 

50077 


6 

SP 

0 

0 


7 

MA 

0 

0 


10 

TJ 

0 

2 


11 

DV 

0 

31000 


12 

SA 

0 

17 


13 

TU 

32000 

1 


14 

MJ 

0 

1 



CA 

0R15 




IA 

CN 



0 

0 

0 

0 


1 

0 

0 

1 


2 

0 

0 

2 


3 

0 

0 

3 


4 

0 

o 

4 


5 

0 

0 

5 


6 

0 

0 

6 


7 

0 

0 

16 


10 

0 

0 

24 


11 

0 

0 

121 
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12 

0 

0 

1000 

13 

0 

0 

65000 

14 

0 

0 

77000 

15 

0 

1 

0 

16 

10 

3 

0 

17 

0 

30000 

BF 

20 

0 

0 

77777 

21 

0 

0 

NL 

22 

0 

0 

TN 

23 

0 

0 

GL6 

24 

0 

BK7 

FL3 

25 

0 

SL 

SL 

26 

0 

MM 

MM 

27 

0 

50077 

0 

30 

0 

0 

1172 

31 

0 

GL 

FL 

32 

10 

0 

0 

33 

0 

1 

1 

34 

0 

0 

RW 


CA 

CN35 
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Flow Charts of Read Generator 



Call word to 1st line 
of prelude & Op. File 


_ ± _ 

Clearing input and 
output lines of 
prelude_ 


_ ± _ 

Line number to 

prelude 


- 1 - 

Count of 3 to v of 

first line of Op. File 


_ ± _ 

Call word of read li¬ 
brary routine to Op. 
File 


_ y 

Set up loading 
routine ST 
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0 


31 + no* variables = 
number of lines subject 
to address modification. 
Put in 2nd line of 
prelude 


/ RL routine to load 
temporary in output 


TP Call word 

First tern- 

of vari- 

porary of 

ables 

Object 

index 

Program 

Above line formed and 

sent to output. 


Twice number of var: 
ables = number of ui 
modifiable constant; 
Put in 3rd line of 
prelude 


767 + preceding + 3 
gives v of exit jump 
line. MJ o v formed 
in a temporary 


TU 1023 1011 
TU 1024 1005 
TU 1025 1010 


Above 3 lines sent 
to output. 
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' GK subroutine 
to put group of 
lines in output 











RA 1005 /Call word of 
x ( 010 ) 
/Call word of 
RA 1010 \ (010) 

ra imi /Call word of 
RA 1011 \ (010) 

Above 3 lines formed 
and put in output_ 


/FD subroutine to \ 

/get call word, storey 
it in generated rou- 
tine and op* file, and/ 
\get modulus index / 
\ in A V 


Store modulus index 
of variable in output 
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Entry' 


GK Subroutine to Put Group of Lines in Output 


30000 50100 


TP (Constant call) 50100 
Iword of var. J 
formed and put in out¬ 
put 


10 

0 

1 

RJ 50100 

50100 

10 

0 

2 

above 3 lines 
output 

put in 


Get call word for 
line number 


Is there a "jump to"\No 
line number? j 


MJ 0 100x-l 

formed and put in out- 
ut 


n /Call word of 
MJ 0 | *| • 

lime no. 

formed in a temporary 


f Is sentence within 

\Yes 

Put pseudo op. indi- 

l pseudo op? 

r* 

cator in Q 



TP 30000 [Temporary 

[M] < ° f 0b J ect 

1 — 1 I Program 

TP [Call word [Temporary 
^of modulus^of Object 
lindex (Program 
formed and put in output 


Test if jump is legal 
via KI subroutine 


TV 

30000 

ISO 

100x+2 

TV 

1013 

BD 

100x+2 

TV 

1024 

100x+2 

formed and put in output 


MJ 

0 Call word 


of line no. 

10 

0 1 

above 2 lines to 


output 


Add one to count in 
first and second 
lines of prelude 


RA lOQx-1 (Call word 
J of con¬ 
stant 1 

formed and put in out¬ 
put 


fTemporary 
IJ -j of Object 
^Program 

to output 



:J 50100 50100 

.0 0 3 

:P q 30000 

above 3 lines put 

in output 
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RL Routine to Load Temporary in Output 



ST Subroutine to Load Lines of Generated Routine 



FB Subroutine to Load Op* File 
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FD Subroutine to Get Call Word of Variable, Store It in Output, Put it 
in Op, File and Get Modulus Index in A 



TS Subroutine to Get Call Word of Subscripted 
Variable From Dimension List 
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READ GENERATOR REGIONS 


RE CS1211 
RE LS1465 
RE OP1047 
RE BR537 
RE LW1250 
RE KI1336 
RE VX1670 


RE 

BP564 | 


RE 

BQ632 J 


RE 

DL40102 

Dimension List 

RE 

LL47246 

= IZ f Referenced-line-number List 

RE 

BK2242 

Input buffer 

RE 

GL5360 

Generated routines output buffer 

RE 

WW12 

Fixed location holding read indicator 


RE 

RE2512 



RE 

IN2513 



RE 

FW2647 



RE 

GK2726 


Generator 

RE 

RL3041 


+ tempo- < 

RE 

ST3044 


raries 

RE 

FD3047 



RE 

TS3063 



RE 

FB3073 



RE 

CN3077 



RE 

0K3142 



RE 

ER3143 



L RE 

FL3150 

Where Op File I is built up 


= CW, Call-word subroutine 


Generation subroutines 
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READ GENERATOR 


Entry 



IA 

RE 



MJ 

0 

30000 


CA 

REl 



IA 

IN 


0 

SP 

BK3 

17 

1 

TP 

A 

GL 

2 

TP 

A 

FL 

3 

TP 

CN 

GL3 

4 

TP 

CN 

GL4 

5 

TP 

BK1 

GL5 

6 

TV 

CN3 

FL 

7 

TP 

CN40 

FL2 

10 

TV 

CN31 

ST 

11 

TP 

CN13 

OK 

12 

TV 

CN32 

FB 

13 

SP 

BK4 

0 

14 

ZJ 

GK110 

IN 15 

15 

SP 

BK5 

0 

16 

TJ 

CN3 

FW 

17 

AT 

CN10 

GLl 

20 

SP 

BK5 

1 

21 

TP 

A 

GL2 

22 

SA 

GLl 

0 

23 

ST 

CN1 

FL1 

24 

SA 

CN4 

0 

25 

TV 

A 

GL 

26 

AT 

CN12 

ER1 

27 

SA 

CN3 

0 

30 

TP 

RE 

ER 

31 

TV 

A 

ER 

32 

RJ 

RL2 

RL 

33 

SP 

BK5 

0 

34 

SS 

CN1 

0 

35 

RJ 

CS 

CS1 

36 

TP 

CN33 

ER 

37 

TU 

A 

ER 

40 

TV 

ER1 

ER 

41 

RJ 

RL2 

RL 

42 

TP 

CN41 

ER 

43 

RJ 

RL2 

RL 

44 

RA 

ER 

BP45 

45 

ST 

BQ16 

ER 

46 

RJ 

RL2 

RL 

47 

RA 

ER 

CN15 

50 

RJ 

RL2 

RL 


} 

} 


} 

} 

} 

} 

} 


Exit 


Call word to 1st line of prelude, GLu 

Call word to 1st line of Op File 1 item 

Clearing input and output lines of prelude 

Line number to prelude 

Number (3) to v of 1st line of Op File 

Call word (50100) to 3rd line of Op File. 

Library call word reference 
Initializing ST (load routine) to GL6 
Initializing OK to read 0 0 1000 
Sets up v of FB to FL3 
Is there a "jump to" line number in the 
sentence? 

Is 3 > number of variables? 

31 + number variables = no. lines subject 
to address modification 
Number of unmodifiable constants = twice 
number of variables 

Thrice no. of variables +31 - 1 = no. of 
lines of running program including 
temporaries 

Thrice no. of variables + 31 + 6 = no. of 
lines prelude and routine 
767 + above enumeration gives address of 
1st temporary of running program 

MJ 0 ^ ove formed to make 1st line a 
jump to 2nd line of next sentence 
Line to generated routine output 

Getting constant call word for no. 
variables minus one 

TP Call Word of First temp of 

Variables Index Object Program 

formed and sent to output 


TU 

1023 

1011 

to 

output 

TU 

1024 

1005 

to 

output 

TU 

1025 

1010 

to 

output 
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Setups 
for a * 
sub¬ 
routine 


51 

RP 

10003 

IN53 

52 

TP 

CN26 

GK73 

53 

RA 

ER1 

CNl 

54 

SP 

ER1 

17 

[55 

AT 

ER1 

ERl 

56 

RJ 

GK72 

GK 

57 

SP 

BP 45 

0 

60 

RJ 

CS 

CS1 

61 

TP 

CN32 

ER 

62 

TU 

CN27 

ER 

63 

TV 

Q 

ER 

64 

RJ 

RL2 

RL 

65 

RA 

ER 

CN16 

66 

RJ 

RL2 

RL 

67 

RA 

ER 

BP45 

70 

RJ 

RL2 

RL 

71 

TP 

CN34 

ER 

72 

SP 

GL7 

17 

73 

TU 

A 

ER 

74 

TV 

GL11 

ER 

75 

RJ 

RL2 

RL 

76 

TP 

RE 

ER 

77 

TV 

CN13 

ER 

100 

RJ 

RL2 

RL 

101 

TP 

CN1 

ERl 

102 

SP 

CN14 

17 

103 

TP 

A 

ER 

104 

RJ 

RL2 

RL 

105 

SP 

BK5 

17 

106 

AT 

ER 

ER 

107 

RJ 

RL2 

RL 

110 

IJ 

ERl 

IN 105 

111 

TU 

CN31 

IN 122 

112 

TV 

CN33 

FD3 

113 

SP 

CN33 

0 

114 

SA 

BK5 

0 

115 

TV 

A 

IN123 

116 

SA 

BK5 

0 

117 

TV 

A 

IN125 

120 

SP 

BK5 

0 

121 

ST 

CNl 

ERl 

122 

TP 

30000 

ER 

123 

TP 

ER 

30000 

124 

RJ 

FD13 

FD 

125 

TP 

A 

30000 

126 

RA 

IN122 

BP45 

127 

RA 

IN123 

CNl 

130 

RA 

IN 12 5 

CNl 

131 

RA 

FD3 

CNl 

132 

IJ 

ERl 

IN122 


} 


} 


} 

} 


> 



} 

} 

} 


00 30000 30000 to 3 temporaries 

Puts in u and v of ER1 the address of 2nd 
temporary of Object Program 

Puts a succession of lines in output 
Gets constant call word for 010 


RA 

1005 

Call 

(0 

word of 

1 0) 

to output 

RA 

1010 

Call 

(0 

word of 

1 0) 

to 

output 

RA 

1011 

Call 

(0 

Word of 

1 0) 

to 

output 

IJ 

Call word 
Variables 

of 1005 

to 

output 


Index 


MJ 0 1000 to output 

1 —> ER1 

0 1026 0 to output 


0 (1026 I v) 0 to output 

0 (1026 + 2 v) 0 to output 

Setup to get variables from string-out at 
BK6 

Setup to store call words in output at 
certain location 

Setup to store call words at above locat. 

+ v. v = no. variables 

Setup to store modulus indexes at 1st 
location f 2 v 

Variables index (v - l) formed in ER1 

Get variable from string-out input. 

Store variable as fixed const, in output. 

Get Dimension List call word of subscripted 
variable, store in output and Op File,& 
get modulus - 1 and store in output 

Modifying instr. to get next variable 

Index jump to get remaining variables 
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133 

MJ 

0 

FW44 


CA 

IN134 



IA 

FW 


0 

TP 

CN 

GL2 

1 

TU 

CN31 

FW25 

2 

TP 

RE 

ER 

3 

ST 

CN1 

ER2 

1 vari- \ 4 

ZJ 

FW15 

FW5 

able 5 

' ^ 

CN6 

GL1 

6 

TV 

CN27 

GL 

7 

TP 

CN5 

FLl 

10 

TP 

CN17 

GK75 

11 

TP 

CN23 

ER1 

12 

TV 

CN34 

FD3 

13 

TV 

CN30 

ER 

2 vari- 14 

MJ 

0 

FW24 

ables 15 

TP 

CN11 

GL1 

16 

TV 

CN36 

GL 

17 

TP 

CN7 

FLl 

20 

TP 

CN20 

GK75 

21 

TP 

CN24 

ERl 

22 

TV 

CN35 

FD3 

23 

TV 

CN37 

ER 

24 

RJ 

RL2 

RL 

25 

TP 

30000 

ER 

26 

TP 

ER 

A 

27 

RJ 

CS 

CS1 

30 

TP 

A 

GK73 

31 

RJ 

FD13 

FD 

32 

RJ 

CS 

CS1 

33 

TP 

A 

GK74 

34 

RJ 

GK72 

GK 

35 

RA 

GK75 

BP45 

36 

RA 

FW25 

BP45 

37 

RA 

FD3 

CNl 

40 

IJ 

ER2 

FW25 

41 

TP 

RE 

ER 

42 

TV 

CN13 

ER 

43 

RJ 

RL2 

RL 


} 


Jump to termination of generation 


Zeroize number of unmodifiable constants 
Setup to scan string-out at BK6, beginning 
of X3 variable list 

MJ 0 _ to temporary ER 

Variables index set up in ER2 
Is number of variables one? 

17 = number of lines subject to address 
modification 

25 = number of lines generated routine, in¬ 
cluding ”10" lines & prelude 
15 = Op File count of running program in¬ 
cluding temporaries 

0 1013 0 to temporary as address holding 

call word of variable 
0 1014 1014 to temporary as address of 

temporary in Object Program 
Sets up FD routine to store call word in 
output 

MJ 0 1016 formed in ER 

36 = no. of lines subject to address modi¬ 
fication 

42 = no. of lines gen. routine incl. 10 
lines and prelude 

27 = Op File count of Object Program lines, 
incl. temps 

0 1024 0 to temp, as address holding call 

word of variable 

0 1026 1026 to temp, as address of tempo¬ 

rary of Object Program 
Setup FD rtne.to store call word in output 
MJ 0 1030 formed in ER 

Line to output 

Get constant call word for name of sub¬ 
scripted variable and store name in con¬ 
stant pool 

Store constant call word in temporary 
Get Dimension List call word of subscripted 
variable, store in output & Op. File, and 
get modulus minus one in A 
Get call word of modulus - 1 and store in 
temporary 

Put a succession of lines into output 

Altering instructions to get a remaining 
variable 

Jump back to get a remaining variable 
MJ 0 1000 to output 
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Termi¬ 

44 

SP 

BK4 

0 

nation 

45 

ZJ 

FW46 

FW50 


46 

SP 

ER3 

0 


47 

RJ 

FB3 

FB 


50 

SP 

CN40 

0 


51 

RJ 

LS 

LSI 


52 

TP 

CN42 

0 P 1 


53 

RJ 

OP 

0P2 


54 

TP 

VX153 

Q 


55 

QS 

VX153 

WW 


56 

MJ 

0 

RE 



CA 

FW57 




IA 

GK 



0 

TP 

CN33 

ER 


1 

TV 

CN21 

ER 


2 

TU 

GK73 

ER 


3 

RJ 

RL2 

RL 


4 

TP 

CN25 

ER 


5 

TV 

CNl 

ER 


6 

RJ 

ST2 

ST 


7 

TP 

CN21 

ER 


10 

RJ 

RL2 

RL 


11 

TP 

CN25 

ER 


12 

TV 

CN2 

ER 


13 

RJ 

ST2 

ST 


14 

TP 

RE 

ER 


15 

TP 

BK4 

A 


16 

ZJ 

GK76 

GK17 


17 

SP 

OK 

0 


20 

ss 

CNl 

0 


21 

TV 

A 

ER 


22 

RJ 

RL2 

RL 


23 

MJ 

0 

GK32 


24 

RJ 

RL2 

RL 


25 

TP 

CN25 

ER 


26 

TV 

CNl 

ER 


27 

RJ 

ST2 

ST 


30 

RA 

GL 

CNl 


31 

RA 

GL 1 

CNl 


32 

TP 

CN33 

ER 


33 

TU 

GK74 

ER 


34 

TV 

ERl 

ER 


35 

RJ 

RL2 

RL 


36 

TP 

CN35 

ER 


37 

TU 

GK75 

ER 


40 

TV 

OK 

ER 


41 

RA 

ER 

CN2 


42 

RJ 

RL2 

RL 


} 

} 

*% 

} 

} 

} 


} 

} 

} 

} 

1 


} 


Is there a "jump to” line number? 

Store call word of "jump to” line no. as 
cross reference in Op. File 
Call word referencing read routine in 
Library put into Library List 
Op File to storage and generated routine 
to tape 

Indicator bit (0 2 0) put in WW (fixed 
location 12) to show a "READ" is present 


TP 30000 50100 

-{or}—- 

TP Constant 50100 
Call Word 
of Variable 

10 0 1 formed in ER 


formed and put in 
output. If more 
than 2 variables, 
the first; other¬ 
wise, the second 


Line to output without upping count in OK 
of lines relative to 1000 


RJ 50100 50100 to output 


10 0 2 to output 
MJ 0 0 to ER 

Is there a "jump to" line no. in sentence? 


MJ 0 100X - 1 to output 

MJ 0 Call Word of Line No. to output 
10 0 1 to output 


Adding one to prelude counts 


TP 


TV 


30000 or Temporary 
Call Word of Object 
of Modulus Index Program 


to output 


f 300001 


1013 

or 

1024 


► 100X 4- 2 to output 

More than 2 var., 1 var. ( or 
var. setups determine u of 
generated coding 


2 
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43 

TP 

CN21 

ER 

44 

RJ 

RL2 

RL 

45 

TP 

CN25 

ER 

46 

TV 

CN3 

ER 

47 

RJ 

ST2 

ST 

50 

TP 

CN33 

ER 

51 

TV 

CN26 

ER 

52 

TU 

CN30 

ER 

53 

RJ 

RL2 

RL 

54 

SP 

CN 1 

0 

55 

RJ 

CS 

CS 1 

56 

TP 

CN32 

ER 

57 

SP 

OK 

0 

60 

SS 

CN 1 

17 

61 

TU 

A 

ER 

62 

TV 

Q 

ER 

63 

RJ 

RL2 

RL 

64 

TP 

CN34 

ER 

65 

TU 

ER 1 

ER 

66 

SP 

OK 

0 

67 

SS 

CN3 

0 

70 

TV 

A 

ER 

71 

RJ 

RL2 

RL 

72 

MJ 

0 

30000 

73 

0 

30000 

30000 

74 

0 

30000 

30000 

75 

0 

30000 

30000 

76 

RJ 

LW 

LW 1 

77 

TV 

Q 

ER 

100 

TP 

A 

ER3 

101 

TP 

A 

ER4 

102 

TP 

CN22 

A 

103 

TJ 

BK3 

GK105 

104 

TP 

GK107 

Q 

105 

TP 

ER4 

A 

106 

RJ 

KI 

KI 1 

107 

MJ 

0 

GK24 

110 

RA 

CN35 

CN2 

111 

RP 

20002 

IN15 

112 

RA 

CN33 

CN 1 


CA 

GK113 



IA 

RL 


Generated 0 

RJ 

ST2 

ST 

Routine 1 

RA 

OK 

CNl 

Loader 




Plus 2 

MJ 

0 

30000 

100X 

CA 

RL3 


Counter 





} 


I 

} 


> 


} 

} 


} 


RJ 50100 50100 to output 
10 0 3 to output 

TP q 30000 to output 

Putting 1 into constant pool and getting 
its call word into 0 

v 

da tAA v Call Word . . . 

RA lOOX-*! i to output 


IJ 


Temporary of 
Object Program 


to output 


Subroutine exit 

Temporaries used in generation 

Getting call word for line number 
MJ 0 Call word of to ER 
Line No. 

Storing call word of line no. in 2 temp.S. 

Is call word of sentence > 22777? 

Put a word with U 35 filled into Q to show 
Pseudo-Op.condition 
Call word of line no. to A y 
Test if jump is legal 

Increase excess-3 variable loading address 
by 2 to allow for 2 added "ten" lines 
Increase initial loading address of excess- 
three variables to allow for added " 10 " 
line following jump to line number 


Loads line into output of generated routine. 
Ups count of 100X. Ordinal count of number 
of generated routine line relative to 1000 . 
Does not include "10" lines. 
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IA 

ST 



Generated 

0 

TP 

ER 

30000 


Routine 

l 

RA 

ST 

CN1 


Line 






Loader 

2 

MJ 

0 

30000 




CA 

ST3 



Control Subroutine 

to get 

call word 

of 

in output 

and 

Op File, and 

get modulus 



IA 

FD 




0 

TP 

ER 

A 

1 


1 

TU 

6 

TS 

V 

f 


2 

RJ 

TS7 

TS 

J 


3 

TP 

A 

30000 



4 

LA 

A 

17 

1 

" 


5 

RJ 

FB3 

FB 

j 



6 

RA 

TS6 

BP45 




7 

TU 

A 

FD10 




10 

TP 

30000 

Q 


► 


11 

QT 

CS35 

A 




12 

SS 

BP45 

71 

- 



13 

MJ 

0 

30000 




CA 

FD14 



Get Call 


IA 

TS 



Word of 

0 

RP 

0 

BR1 

1 

L 

a vari¬ 

1 

EJ 

DL 

TS2 

J 

r 

able in 






Dimen¬ 






sion List 

2 

SN 

Q 

17 




3 

SA 

TS 

0 




4 

SA 

TS1 

0 


► 


5 

TU 

A 

TS6 




6 

TP 

30000 

A 




7 

MJ 

0 

30000 




CA 

TS10 



Load 


IA 

FB 



Op 

0 

TP 

A 

30000 


File 1 

1 

RA 

FB 

CN1 



2 

RA 

FL 

CN1 



3 

MJ 

0 

30000 




CA 

FB4 



Constants 


IA 

CN 



and 

0 

0 

0 

0 


Dummy 

1 

J. 

0 

0 

l 

1 


Commands 

2 

0 

0 

2 


Used to 

3 

0 

0 

3 


Make up 

4 

0 

0 

7 


Generated 

5 

0 

0 

15 


Routine 

6 

0 

0 

17 



7 

0 

0 

27 



Loads line into output 

Alters loading line for next line of 

output 

a variable from Dimension List, store it 
- 1 in A 

v 

Get call word of variable from Di¬ 
mension List 

Put call word in output 
Put call word in Op File 1 


Extract modulus from Dimension List, 
subtract one from it, and put into A v 


If variable is not in list, computer 
stops after a rewind of tapes and 
print-out: ALARM 1 COMILATION 
INCONSISTENCY’POSSIBLE COMPUTER ERROR’ 
RECOMPILE 

Computing position of variable in list 
and getting call word of it into A 


Storing line in Op File 
Increase storing order 
Up count of number of lines 
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10 

0 

0 

31 



11 

0 

0 

34 



12 

0 

0 

767 



13 

0 

0 

1000 



14 

0 

0 

1026 

Address holding call word of 1st variahle 






for more-than-2-variable case 


15 

0 

1 

3 



16 

0 

3 

0 



17 

0 

1013 

0 

Address holding call word of variable for 






1-variable case 


20 

0 

1024 

0 

Address holding call word of 1st variable 






for 2-variable case 


21 

RJ 

50100 

50100 



22 

0 

0 

22777 



23 

0 

1014 

1014 

Address of temporary of Object Program for 






1-variable case 


24 

0 

1026 

1026 

Address of temporary of Object Program for 






2-variable case 


25 

10 

0 

0 



26 

0 

30000 

30000 



27 

0 

1005 

25 



30 

0 

0 

1016 



31 

0 

BK6 

GL6 



32 

RA 

DL 

FL3 

DL is initial location of Dimension List 

When more33 

TP 

LL 

GL37 


than 2 

34 

IJ 

0 

GL24 

Gl 24 is loading address of variable when 

vars., 





only one 

GL37 is 

35 

TV 

0 

GUO 

GL40 is initial loading addr. of variables 

initial 





when there are two 

loading 

36 

0 

0 

42 


address 

37 

0 

0 

1030 


of X3 

40 

0 

50100 

0 

Call word of Read permanent library routine 

names 

41 

TU 

1023 

1011 



42 

0 

GL 

FL 




CA 

CN43 
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CM CM O 
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Stop Generator Flow Charts 


G 


o 

CO 


Yes 















































Stop Generator Flow Charts 





In above routine X = address rel* 1000 of order currently being generated 









STOP GENERATOR REGIONS 


Generation 

Subroutines 


RE 

CS1211 

Call word routine (= CW) 

RE 

BR537 

Machine error print-out routine 

RE 

OP1047 

Op control routine 

RE 

DL40102 

Dimension List 

RE 

BK2242 

Buffer input region 

RE 

GL5360 

Buffer output region for generated routine 

RE 

RW50023 

Rewind list of call words of tape no.’s referenced 
by read and list instructions 

RE 

WW12 

Fixed location of read, list indicator 

RE 

ST2512 


RE 

SG2513 


RE 

HT2513 

► Stop Generator 

RE 

PG2702 


RE 

RL3017 


RE 

CN3024 


RE 

ER3137 w 

Temporaries 

RE 

FL3144 

Where Op File I is built 

RE 

DA77300 

Object Program service routine 

RE 

PR77250 

UNICODE print-out routine 

RE 

GT210 

Object program tape handler 

RE 

WB71005 

List buffer (170) 

RE 

IW50077 

Call word for LIST permanent library routine 
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STOP GENERATOR 


IA ST 

MJ 0 30000 Exit 

CA ST1 



IA 

SG 

' 0 

TP 

CN 

1 

RP 

10005 

2 

TP 

CN 

3 

SP 

BK3 

4 

LA 

A 

5 

TU 

A 

6 

TV 

CN4 

7 

TV 

CN2 

10 

TP 

BKl 

11 

RP 

30003 

12 

TP 

CN32 

13 

SP 

CN27 

14 

RJ 

CS 

15 

TV 

Q 

16 

RP 

10003 

17 

TP 

CN 

20 

TV 

CN24 

21 

TV 

CN24 

22 

SP 

BK3 

23 

LA 

A 

24 

TU 

A 

25 

TP 

WW 

26 

QT 

CN17 

27 

ZJ 

HT30 

30 

RP 

30006 

31 

TP 

CN35 

32 

SP 

CN30 

33 

RJ 

CS 

34 

TU 

A 

35 

TV 

CN7 

36 

TV 

CN4 

37 

TV 

CN2 


CA 

SG40 


HT166 

HT3 

GL 

0 

17 

GL 

GL 

GL1 

GL5 

HT13 

GL6 

0 

CS1 

GL10 

HT20 

FL 

FL 

FL1 

0 

17 

FL 

Q 

A 

HT125 

HT32 

GL11 

0 

CS1 

GL16 

GL 

GL1 

GL2 


Set indicator to zero 
Zeroize 5 lines of GL 

Call word 

11 —» GL "v" 

3 —> GL1 "v" 

Line number 

MS, "10" line, EF 

Rew. 1 code 

Fill in EF V 

Zeroize 3 lines for Op File item 

2 —> FL V 

2 FLl V 

Call word 

I/O indicator word 
Is there a list? 

RJ, 10, RP, TP, RP, TP 

Stop word to constant pool 

Fill in TP« "u" 

22 —> GL "v" 

11—> GLl "v" 

3 —H?L2 V 


40 

IA 

TV 

SG40 

CN2 

FL 

3 —>FL "v" 

41 

TV 

CN5 

FLl 

12 —>FL1 V 

42 

TU 

CN35 

FL2 

IW CW -> FL2 "u" 

43 

TP 

CN12 

Q 

Mask for n from RW list 

44 

QT 

RW 

ER 

Extract * tape call words (n) 

45 

TP 

A 

ER1 

n —> ERl 

46 

TJ 

CN3 

UTS 1 

Test v < 4 

47 

TP 

CN25 

HT166 

4 or more, set indicator to large no 

50 

TP 

CN2 

ERl 

3 —>ER1 
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51 

SP 

A 

1 

2n 

52 

AT 

ER1 

ERl 

Form inc. for prelude (3n or 2n + 3) 

53 

SA 

CN15 

17 

Add 1042, form (1042 + 3n, 1045 f 2n) 

54 

TU 

A 

GL14 

Fill in TP 2 "u" 

55 

RA 

GL 

ERl 1 

56 

RA 

GL1 

ERl 

- Increment prelude counters 

57 

RA 

FL1 

ERl J 


60 

SP 

CN31 

0 

General GTH parameter to write 1 block 

61 

RJ 

CS 

CS1 

to C.P. 

62 

TP 

A 

ERl 

Save it 

63 

TP 

PG 

ER2 

SP—17 —»ER2 

64 

IJ 

HT166 

HT73 

How many tapes? 

65 

TP 

CN100 

ER3 

<4; AT GT3 —> ER3 

66 

TU 

ER1 

ER3 

AT L(GTHp) GT3-ER3 

67 

TP 

CN101 

ER4 

RJ GT2 GT —> ER4 

70 

TU 

CN37 

HT106 

Set up RP to write 3 words 

71 

TV 

CN112 

HT110 

Set up RA to inc. by 3 

72 

MJ 

0 

HT101 

Jump 

73 

SP 

ER 

1 

4 or more tapes; 2n —>A 

74 

AT 

CN14 

ER3 

Add 1024 -> 1024 + 2n in ER3 "v" 

75 

SA 

CN24 

17 

Add 0 37 2 —>RJ 1026 + 2n ? in A 

76 

AT 

ER3 

ER3 

Complete order 

77 

TU 

CN40 

HT106 

Set up RP to write 2 words 


CA 

SG100 




IA 

SG100 



100 

TV 

CN105 

HT110 

Set up RA to inc. by 2 

101 

TU 

CN42 

HT105 

Set up TU order to start at RW1 

102 

TV 

CN103 

HT107 

Start at GL17 

103 

IJ 

ER 

HT105 

Count down on n index 

104 

MJ 

0 

HT113 

Exit 

105 

TU 

[30000] 

ER2 

Complete SP order 

106 

RP 

[0] 

HT110 


107 

TP 

ER2 

[30000] 


110 

RA 

HT107 

[30000] 


111 

RA 

HT105 

CN17 

Increase by 1 "u" 

112 

MJ 

0 

HT103 


113 

TV 

HT107 

RLl 

Now HT 103 "v" holds next address in GL 

114 

RS 

HT107 

CN103 

Subtract GL17 

115 

SA 

CN41 

0 

Add 1007 

116 

TP 

CN 

RL4 

Zeroize RL4 

117 

TV 

A 

RL4 

And set it up (add. rel. 1000) 

120 

RJ 

PG114 

PG 

Execute PG coding 

121 

TV 

RL1 

HT124 

122 

RA 

HT124 

CN6 

Increment by 14 

123 

124 

RP 

TP 

30003 

CN106 

HT163 1 
30000 J 

1* Insert XS3 - "END OF OUTPUT” 

125 

126 

QT 

ZJ 

CN20 

HT151 

A 1 

HT127 J 

1 then go to conclusion 

r No list - how about a programmed Read? 

127 

TP 

CN 

ER 

No. prog. Read - investigate auto-read 

130 

TV 

6 

ER 

Set up ER with #77 CW*s 

131 

TP 

CN16 

ERl 

77000 is 1st CW 
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132 

TU 

6 

HT136 

Set up RP 

133 

IJ 

ER 

HT135 

Count down on index 

134 

MJ 

0 

HT155 

Exit - no auto-read 

135 

SP 

ERl 

0 


136 

RP 

[o] 

BR1 


137 

EJ 

CA 

IA 

nr 

LTU 

SG140 

SG140 

HT140 


140 

SN 

Q 

17 


141 

SA 

HT136 

0 


142 

SA 

HT137 

0 


143 

TU 

A 

Hr 144 


144 

TP 

[30000] 

0 


145 

QT 

CN25 

A 

Inspect X 

146 

ZJ 

HT147 

HT151 

If zero, auto-read 

147 

RA 

ERl 

CN1 

No - prepare to search for next CW 

150 

MJ 

0 

HT133 


151 

TV 

CN102 

RL1 

Read coding - prepare to gen. coding 

152 

TP 

CN13 

RL4 

Gen from GLll, add entr—>1002 

153 

RJ 

PG114 

PG 

Execute PG coding 

154 

MJ 

0 

HT163 

Go to conclusion 

155 

RP 

30011 

HT157 

NO READ, NO LIST 

156 

TP 

CN55 

GLll 


157 

TV 

CN7 

GL 

22 —> GL "v" 

160 

TV 

CN4 

GL1 

11 —> GLl V 

161 

TV 

CN2 

GL2 

3 —> GL2 "v" 

162 

TV 

CN4 

FLl 

11 —> FLl "v" 

163 

TP 

CN77 

0P1 

Conclusion - parameter to Op 

164 

RJ 

OP 

0P2 


165 

MJ 

0 

ST 

Exit 

166 

0 

CA 

0 

SG167 

0 

Indicator word 
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PG 



IA 

SG167 



0 

SP 

RL4 

17 

Add. entr.—"u” 

1 

AT 

CN43 

ER 

Add TP 20 0 

2 

IJ 

HT166 

PG4 

Or < 4 tapes? 

3 

RS 

ER 

CN22 

Yes, subtract 3 M u" 

4 

RJ 

RL3 

RL 

Store this running line 

5 

TP 

CN56 

ER 

10 0 PR3 

6 

RJ 

RL3 

RL1 

Store this 10 line 

7 

TP 

CN57 

ER 

RJ 0 0 

10 

RJ 

RL3 

RL 

Store this running line 

11 

TP 

CN60 

ER 1 

[ 10 PR2 PR 

12 

RJ 

RL3 

RL1 J 

to output 

13 

SP 

CN 

0 

Clear A 

14 

RJ 

CS 

CS1 

—» Constant Pool 

15 

TP 

HT13 

ER ] 

I 

16 

TU 

A 

ER 

r SP 1(0) 0 to output 

17 

RJ 

RL3 

RL J 

1 

20 

SP 

RL4 

0 

Add entr. —> A "v" 

21 

AT 

CN 44 

ER 

Add MS 0 1 

22 

RJ 

RL3 

RL 

Store this running line 

23 

SP 

RL4 

17 

Add entr. —> A "u" 

24 

AT 

CN45 

ER 

Add ZJ 1 1000 

25 

RJ 

RL3 

RL 

Store it 

26 

SP 

RL4 

17 

Entr. —>A "u" 

27 

SA 

RL4 

0 

and A "v" 

30 

AT 

CN46 

ER 

Add 45 77775 00001 

31 

RJ 

RL3 

RL 

Store this (SJ line) 

32 

SP 

RL4 

0 

Entr. —>A "v" 

33 

AT 

CN47 

ER 

Add TJ-2 

34 

SP 

CN111 

0 

11 io — > a 

35 

RJ 

CS 

CS1 

—> Constant Pool 

36 

TO 

A 

ER 

TJ L(11) X f 2 

37 

RJ 

RL3 

RL 

Store this 


CA 

SG227 




IA 

SG227 



40 

SP 

RL4 

0 

Entr. —>A "v" 

41 

AT 

CN50 

ER 

Add 44 77777 77773 

42 

RJ 

RL3 

RL 

Store it 

43 

TP 

CN51 

ER 

SP A 14 

44 

RJ 

RL3 

RL 

Store it 

45 

SP 

CN26 

0 

Rewind code —»A 

46 

RJ 

CS 

CS1 

—>C.P. (Constant Pool) 

47 

TP 

HT115 

ER 

SA — 0 

50 

TU 

A 

ER 


51 

RJ 

RL3 

RL 

Store it 

52 

TP 

CN34 

ER 

EF 0 A 

53 

RJ 

RL3 

RL 

Store it 

54 

SP 

RL4 

17 

Add entr. —>A "u” 
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55 

AT 

CN52 

ER 

Add TP 6 0 

56 

IJ 

HT166 

PG60 

or less than 4? 

57 

RS 

ER 

CN22 

Yes - subtract 3 "u" 

60 

RJ 

RL3 

RL 

Store it 

61 

TP 

CN56 

ER 

10 0 PR3 

62 

RJ 

RL3 

RL1 

Store this 10 line 

63 

SP 

RL4 

0 

Add entr. —> A "v" 

64 

AT 

CN53 

ER 

Add 44 77T77 77765 ( 3 MJ) 

65 

RJ 

RL3 

RL 

Store it 

66 

IJ 

HT166 

PG70 

How many tapes? 

67 

MJ 

0 

PG77 

< 4 - jump 

70 

TP 

CN100 

ER 

AT - GT3 

71 

TU 

ER1 

ER 

AT CW(Write param.) GT3 

72 

RJ 

RL3 

RL 

Store it 

73 

TP 

CN101 

ER 

RJ GT2 GT 

74 

RJ 

RL3 

RL 

Store it 

75 

TP 

CN54 

ER 

MJ 0 30000 

76 

RJ 

RL3 

RL 

Store it 

77 

SP 

RL4 

17 

Add entr. —>A **u" 


CA 

SG267 




IA 

SG267 



100 

AT 

CN21 

ER 

Add 0 2 13 

101 

RJ 

RL3 

RL 

Store it 

102 

SP 

RL4 

17 

Entr. —> A "u" 

103 

AT 

CN23 

ER 

Add 0 14 1 

104 

RJ 

RL3 

RL 

Store it 

105 

TV 

RL1 

PG107 

Extract address in GL list 

106 

107 

RP 

TP 

30014 

CN63 

PG110 \ 
[30000] J 

Insert Flex codes 

110 

RA 

GL 

CN11 

Inc. GL V by 36 q 

111 

RA 

GL1 

CN7 

Inc. GL1 "v" by 22q 

112 

RA 

GL2 

CN6 

Inc. GL2 "v" by 14 8 

113 

RA 

FL1 

CN10 

Inc. FL1 "v" by 33 q 

114 

MJ 

0 

[30000] 

Exit 


CA 

SG304 



IA 

SG304 



RL 0 

RA 

RL4 

CN1 


1 

TP 

ER 

[30000] 


2 

RA 

RL1 

CN1 


3 

MJ 

0 

[30000] 


4 

[o 

0 

0] 



CA 

SG311 
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IA 

SG311 



CN 0 

0 

0 

0 


1 

0 

0 

1 


2 

0 

0 

3 


3 

0 

0 

4 


4 

0 

0 

11 


5 

0 

0 

12 


6 

0 

0 

14 


7 

0 

0 

22 


10 

0 

0 

33 


11 

0 

0 

36 


12 

0 

0 

77 


13 

0 

0 

1002 


14 

0 

0 

1024 


15 

0 

0 

1042 


16 

0 

0 

77000 


17 

0 

1 

0 


20 

0 

2 

0 


21 

0 

2 

13 


22 

0 

3 

0 


23 

0 

14 

1 


24 

0 

37 

2 

RJ in "u" 

25 

7 

0 

0 


26 

2 

200 

0 

General rewind 

27 

2 

200 

10000 

Rewind #1 

30 

0 

61616 

16161 

Breakpoint stop word 

31 

74 

20100 

1005 

Parameter to write 1 block from list buffer 

32 

MS 

0 

0 


33 

10 

0 

DA 


34 

EF 

0 

A 


35 

RJ 

IW 

IW 


36 

10 

3 

2 


37 

RP 

30003 

1005 



CA 

SG351 




IA 

SG351 



40 

TP 

30002 

WB105 


41 

RP 

10024 

1007 


42 

TP 

RW1 

WB144 


43 

TP 

20 

0 


44 

MS 

0 

1 


45 

ZJ 

1 

1000 


46 

45 

77775 

00001 


47 

TJ 

0 

2 


50 

44 

77777 

77773 


51 

SP 

A 

14 


52 

TP 

6 

0 


53 

44 

77777 

77765 


54 

MJ 

0 

30000 


55 

TP 

1005 

0 


56 

10 

0 

PR3 


57 

RJ 

0 

0 
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60 

10 

PR2 

PR 


61 

MJ 

0 

1000 


62 

0 

1006 

3 


63 

45 

47200 

62204 

cr t ENDA 

64 

03 

26041 

23406 

OFA RUN 

65 

45 

45000 

00000 

cr cr 

66 

01 

03041 

22031 

TOAREW 

67 

14 

06220 

41454 

IND A1/ 

70 

03 

04013 

01520 

0 A TAPE 

71 

24 

04242 

00104 

SA SETA 

72 

24 

20121 

70304 

SERVOA 

73 

06 

03041 

40604 

NO A IN A 

74 

30 

04051 

40104 

A A HIT A 

75 

24 

01301 

20157 

START + 

76 

45 

22140 

10103 

cr ditto 

77 

0 

GL 

FL 



CA 

SG411 




IA 

SG411 



100 

AT 

0 

GT3 


101 

RJ 

GT2 

GT 


102 

0 

0 

GL11 


103 

0 

0 

GL17 


104 

0 

0 

2 


105 

0 

0 

CN104 

L(2) 

106 

30 

50270 

15131 

ENDAOF 

107 

01 

51676 

65267 

AOUTPU 

110 

66 

22010 

10101 

T. A—7\ 

111 

0 

0 

13 


112 

0 

0 

CN2 

L(3) 


CA 

SG424 
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Flow Chart for Dimension Generator 











DIMENSION GENERATOR 


RE 

CQ2512 




RE 

C02547 




RE 

OP1047 




RE 

DL40102 



IA 

CQ 



0 

MJ 

0 

30000 

Exit 

1 

TP 

6 

Q 1 

^ Mask # of arrays to establish 

2 

QT 

COll 

A j 

i index 

3 

TP 

A 

C010 

Set index 

4 

IJ 

C010 

CQ5 


5 

6 

SP 

TU 

DL2 

A 

17 1 

C013 J 

Call word->Op File 1 

7 

10 

SP 

TV 

DL3 

A 

71 1 

CO 14 J 

^ Modulus — > Op File 1 

11 

12 

TP 

RJ 

C012 

OP 

0P1 1 

0P2 J 

f Parameters to Op. 

13 

IJ 

C010 

CQ15 


14 

MJ 

0 

CQ 

Exit 

15 

16 

TP 

QT 

DL3 

COll 

Q 1 

A J 

[• Mask # of subscripts 

17 

TJ 

C02 

CQ31 

2 >(A)? No-add 4 (it must be 0,1) 

20 

TJ 

C04 

CQ25 

4 >(A)? 

21 

RA 

CQ5 

C07 1 

1 

22 

RA 

CQ7 

C07 ! 

f Add 6 

23 

RA 

CQ15 

C07 J 

1 

24 

MJ 

0 

CQ5 


25 

RA 

CQ5 

C06 1 

| 

26 

RA 

CQ7 

C06 

r Add 5 

27 

RA 

CQ15 

C06 J 

1 

30 

MJ 

0 

CQ5 


31 

RA 

CQ5 

C05 1 

| 

32 

RA 

CQ7 

C05 

y Add 4 

33 

RA 

CQ15 

C05 J 

1 

34 

MJ 

0 

CQ5 



CA 

CQ35 




IA 

CO 



0 

0 

0 

0 1 


1 

0 

0 

1 


2 

3 

0 

0 

0 

0 

2 

3 

No. of subscripts 

4 

0 

0 

4 


5 

0 

4 

0 

[ 

6 

0 

5 

o 

y Modifiers 

7 

0 

6 

0 J 

1 

10 

0 

0 

[0] 

Index 

11 

0 

0 

77777 

Mask 

12 

0 

C015 

C013 

Parameters 

13 

0 

0 

2 1 

L 

14 

0 

0 

0 J 

1 Op File 1 

15 

0 

30000 

0 


CA 

C016 
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Pseudo-Operation Heading (Generation) - Flow Chart 



Call word of second 
line of pseudo opera¬ 
tion to v of second 
jump line of generated 
coding. 


Call word of pseudo¬ 
op heading to u of 
first lines of Op File 
I and prelude 


Transfer gener¬ 
ated routine to 
tape and Op. File to 
storage via Op con¬ 
trol subroutine 







PSEUDO-OP HEADING-GENERATION 


RE 8K2242 
RE OP1047 
RE PS2512 


IA PS 

0 MJ 0 

1 TV BK4 

2 LQ BK3 

3 TU Q 

4 TU Q 

5 TP PS23 

6 RJ OP 

7 MJ 0 

10 0 [o] 

11 0 0 

12 0 [ 0 ] 

13 0 0 

14 0 0 

15 0 0 

16 0 0 

17 0 0 

20 MJ 0 

21 MJ 0 

22 10 0 

23 0 PS 12 

CA PS24 


30000 

PS21 

Q17 \ 

PS10 J 

PS 12 

0P1 \ 

0P2 J 

PS 

i } 

i i i 


0 

0 

30000 

[ 0 ] 

1 J 

PS 10 


Exit 

Call word of second line of subprogram to v 
of output line 

Call word of Pseudo-Op heading to u of 1st 
line of Op File 

Same to u of 1st line of prelude 
Transfer generated routine to tape and Op 
File to storage 
Exit 

Op File 1 


Prelude of generated routine 

Generated routine plus "10” line 

Parameter word for transfer of generator 
to tape and Op File to storage 


The line number in input buffer line bkl is inserted in PS17 
by generation control prior to operation of this routine in the core. 
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End of Tape—Generation 


Control of the End of Tape Generator is in the last part of the Control 
Generation subroutine. First the Op File is transferred to the proper storage 
area. Then RJ KB KB1 does the following things: 

It closes out the Op File block, sending it to tape, and adds on an "End of 
Entry" block. In the "End of Entry" block following the first two lines, the 
contents of locations 5-17 are reproduced. Prior to this, the value of 14 is 
computed and a warning print-out given if the number of blocks scheduled to be 
put on tape 5 will exceed 2500. 

Two blocks of Z*s are added to the tape holding the generation subroutines 
following an "End of Entry" block. 

List I of the library routines referenced is sent to tape 5 with an initial 
block having in its second line the contents of counter 5. An "End of Entry" 
block is added at the end. 

Next, RJ UG UG1 puts the Dimension List on tape 5 with opening and 
closing blocks. RJ IG IG1 puts the Constant List on tape 5. RJ BU BUI 
references a BX subroutine to build an excess-three symbol list of single-valued 
variables. Then the BU subroutine sends this list to tape 5 with the appropri¬ 
ate beginning and ending block. 

RJ EG EG1 rewinds the string-out input tape and the generation-routine 
tapes and moves backward on tape 5 until the reader head is positioned just 
before the entry blocks of the Op File I data. 

RJ BE BEl gives the termination print-out for generation and provides 
the option of interruption or continuation of the UNICODE program. 

Subsidiary subroutine TE is another name for KB during the "End of Tape" 
operation. TF is a list of labels and a mask. EW is a subroutine which adds 
Z*s to a title block and transfers it to tape and contains a portion which 
puts List I on tape. IW is a subroutine which takes any length list and adds 
it to tape, computing the number of blocks and adding at the end an "End of 
Entry" block. 
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RJ BV BV1 is an instruction within TE which in turn references regions 
BM t BN, and BO and computes the value of 14. 

Explanation of FS, a region of 7 temporaries used during operation of IW f 
is given in annotated form following the print-out of the Reco coding. 
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End of Tape - Generation - Flow Chart 


'Entry' 


Transfer "End of Tape" 
generator from drum 
to core 


Op File to storage 


Fill Op File buffer 
region with Z f s 





"End of Entry" 
block to tape 5 
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CONSTA and (10) to 
buffer region* Block 
to tape 5. Constant 
List to tape 5. "End 
of Entry” block to 
tape 5. 


/Build excess-three 
symbol list of single* 
valued variables 


SYMBOL and (7) to 
buffer region 


Entry 
\ after/ 
restart 


Jump to UNICODE 

S' -\ control routine 

Is A = 0? j Yes > in drum to start 
^ J set-up segmen- 

' I ^ L tation 


Rewind all tapes 
and computer 
stop 










Construct Code Word For Tape Data (Word 14) 

# Blks Constant Pool 

# Blks Dimension List 

# Blks Symbol List 

Read List Indicator Bits from Location 12 

# Blks Corrected Problem + 

# Blks Op File 1 + 

# Blks List 1 + 

# Blks Dimension List + 

# Blks Constant Pool 


Bits 




End of Tape - Generation - Flow Chart 





End of Tape—Generation 
Regions 


Generation Subroutine regions are also needed for assembly of this tape. 


RE 

TE2512 

RE 

TF2565 

RE 

EW2573 

RE 

IW2610 

RE 

1G2675 

RE 

UG2713 

RE 

EG2732 

RE 

BE2750 

RE 

BU2774 

RE 

BX3012 

RE 

BV3052 

RE 

BM3104 

RE 

BN3123 

RE 

B03154 

RE 

FS3214 

RE 

BZ3223 

RE 

BW4223 

RE 

BY2777 
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End of Tape — Generation 


(See Control Generation Routine (CG77-111) for control portion of these 
End-of-Tape Subroutines.) 



IA 

TE 


0 

MJ 

0 

30000 

1 

TP 

ES 

A 

2 

ZJ 

TE3 

TE16 

3 

AT 

RC1 

A 

4 

TV 

A 

TEll 

5 

TP 

GP5 

A 

6 

SS 

ES 

17 

7 

AT 

GP4 

A 

10 

TU 

A 

TE11 

11 

RP 

10000 

TE13 

12 

TP 

GP2 

30000 

13 

TP 

RC 

GT3 

14 

RJ 

GT2 

GT 

15 

RA 

ES5 

GP10 

16 

RJ 

BV 

BV1 

17 

TP 

TF 

NP 

20 

TP 

TF1 

NP1 

21 

RP 

30013 

TE23 

22 

TP 

5 

NP2 

23 

RP 

10153 

TE25 

24 

TP 

GP2 

NP15 

25 

RJ 

GT2 

GT 

26 

RA 

ES5 

GP10 

27 

TP 

TF 

GN 

30 

TP 

TFl 

GN1 

31 

RP 

10166 

TE33 

32 

TP 

GP2 

GN2 

33 

TP 

RC4 

GT3 

34 

RJ 

GT2 

GT 

35 

RA 

ES6 

GPlO 

36 

TP 

GP2 

GN 

37 

TP 

GP2 

GNl 

40 

RJ 

GT2 

GT 

41 

RA 

ES6 

GPlO 

42 

RJ 

GT2 

GT 

43 

RA 

ES6 

GPlO 

44 

TP 

ES5 

FS5 

45 

TP 

TF2 

NP 

46 

TP 

TF5 

Q 

47 

QT 

5 

NPl 

50 

ZJ 

TE51 

TE 

51 

RJ 

EW4 

EW 

52 

MJ 

0 

EW5 


CA 

TE53 



Exit 

Entry 


I Last block of Op File X filled with 
I Z*s and transferred to tape 5 


To set up code tape data word 14 and test 
length of data to go on Uniservo 5 


I End of entry block of Op File £with data 
f on 5-17 goes to Uniservo 5 


I End of entry block of subroutines for 
I Uniservo 4 or 7 


I 2 blocks of Z*s following subroutines 
I on tape 4 or 7 


Setting up counter of blocks from beginning 
of Op File on in tape 5 


r Start of transfer of List J to tape 5 
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List i 
Drum 



IA 

TF 




0 

30 

50270 

15131 


ENDAOF 

1 

01 

30506 

65473 


AENTRY 

2 

46 

34656 

60104 


LISTAl 

Q 

U 

26 

51506 

56624 


CONSTA 

4 

27 

34473 

05065 


DIMENS 

5 

0 

7777 

0 


Mask 


CA 

TF6 





IA 

EW 




0 

RP 

10166 

EW2 

1 


1 

TP 

GP2 

NP2 


Subroutine to fill a block containing 2 

2 

TP 

RC 

GT3 


k title lines with lines of Z r s and transfe 

3 

RJ 

GT2 

GT 


to tape 5 

4 

MJ 

0 

30000 

- 


5 

TP 

EW14 

IW64 

* 


6 

TP 

GP3 

Q 


To finish transferring List I of library 

7 

QT 

5 

FS2 


routine call words to tape 5 

10 

RJ 

IW 

IW1 



11 

TP 

FS 

FS4 •—I 

- No. of blocks of library list goes to FS4 

12 

RA 

FS5 

FS4 - 

— 

- Adding in no. blocks of Library List I to 

13 

MJ 

0 

TE 


accumulative block counter 

14 

0 

0 

LN 

md 



CA 

EW15 





Subroutine Used to Transfer a List 
to Tape 



IA 

IW 




0 

MJ 

0 

30000 

Exit 


1 

TP 

GP10 

FS 

Entry. Starting count of number of 

blocks 





with 1 


2 

3 

TP 

TJ 

IW64 

GP6 

A ) 
IW20 J 

Is list located in drum or core? 


4 

TP 

FS2 

A \ 

Is 170>no. lines left in list? If 

so, go to 

5 

TJ 

GP5 

IW35 J 

partial-block portion 


6 

7 

SP 

TU 

IW64 

A 

17 1 

IW11 J 

1 Setting up transfer line for block 

transfer 

10 

11 

RP 

TP 

30170 

30000 

IW12 1 
NP J 

’ Transferring block lines to buffer 

in core 

12 

13 

TP 

RJ 

RC 

GT2 

GT3 ] 
GT J 

’ Writing 1 block on tape 


14 

RA 

FS 

GP10 

Counting number of blocks 


15 

RS 

FS2 

GP5 

Subtracting no. lines transferred from FS2 

16 

RA 

IW64 

GP5 

Increasing address to next line to 

be 





transferred 


17 

MJ 

0 

IW4 

Jump back to continue transferring 

data, 





kloclc hy blockto tape 


20 

TP 

FS2 

A 1 

„ Is 170>no. lines left in list? If 

so, go to 

21 

TJ 

GP5 

IW35 J 

partial block portion 
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22 

DV 

GP5 

FSl 

List in 

23 

TP 

A 

FS2 

Core 

24 

TP 

FSl 

A 


25 

SS 

GP10 

25 


26 

AT 

RC 

GT3 


27 

TV 

IW64 

GT3 


30 

RJ 

GT2 

GT 


31 

RA 

FS 

FSl 


32 

MP 

FSl 

GP5 


33 

AT 

IW64 

IW64 


.34 

TP 

FS2 

A 


'35 

ZJ 

IW36 

IW57 


36 

SA 

GP6 

17 

Partial 

Block 

to 

Tape 5 
after ' 

37 

40 

41 

TU 

SP 

TU 

A 

IW64 

A 

IW42 

17 

IW43 

42 

RP 

30000 

IW44 

43 

44 

TP 

TP 

30000 

GP5 

NP 

A 

Filling 
With Zs 

45 

46 

SS 

TU 

FS2 

A 

17 

IW52 


47 

RA 

IW52 

GP4 


50 

TV 

FS2 

IW53 


51 

RA 

IW53 

RC1 


52 

RP 

10000 

IW54 


53 

TP 

GP2 

30000 


54 

TP 

RC 

GT3 


55 

RJ 

GT2 

GT 


156 

RA 

FS 

GP10 

End of 

f 57 

TP 

TF 

NP 

Entry 

60 

TP 

TF1 

NP1 

Block " 

61 

RJ 

EW4 

EW 


62 

RA 

FS 

GP10 


.63 

MJ 

0 

IW 


64 

0 

0 

0 


1 

} 


' 

► 

} 


J 

} 

} 

} 


CA IW65 


No. of whole blocks to be transferred —>FS1 

Remainder —> FS2 

Setting up parameter and transferring 
no. whole blocks of list to tape 
in one reference to tape handler 

Upping block count 

Updating address for next line to be 
transferred 

No. lines left in list—>A 

Setting up repeat lines to transfer re¬ 
mainder of data to NP 


Transferring data to NP 


Calculating number of Z lines needed and 
setting up repeat lines accordingly 


Transferring Z lines to buffer region to 
fill up block 

Transferring final block to tape 


Upping block count 

ENDAOF \ . + , + . . 

AENTRY J t0 terminatln 9 block 


Block to tape 

Upping block count of list 


Input line holds address of 1st line of 
list in v 


Routine to Put List of Constants on Tape 5 



IA 

IG 



0 

MJ 

0 

30000 

Exit 

1 

TP 

B03 

A 1 

► Entry 

2 

ZJ 

IG3 

IG J 

If B03 is zero, the list of constants is 





nonexistent 

3 

TP 

TF3 

NP 

CONSTA to title line of block 

4 

TP 

10 

NPl 

Counter to 2nd line of 1st blockette of block 

5 

RJ 

EW4 

EW 

Sends 1st block to tape (title block) 

6 

TP 

IG15 

IW64 

Sends input line to subroutine 

7 

10 

TP 

QT 

GP3 

10 

CM 
_ CO 
O'Cl* 

* Masks out no. of words of constants to FS2 
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11 

RJ 

IW 

IWl 

Sends 

list to tape 

via subroutine 

12 

TP 

FS 

FS3 

Count 

of blocks to 

FS3 

13 

RA 

FS5 

FS3 

Accumulative block 

counter updated 

14 

MJ 

0 

IG 



xo 

A 

\J 

rv 

w 

CL 





CA 

IG16 






Routine to Put Dimension List on Tape 5 


IA 

UG 



MJ 

0 

30000 

Exit 

TP 

ZJ 

BQ4 

UG3 

A ) 

UG J 

If B04 is zero, the dimension list is 
nonexistent 

TP 

TF4 

NP 

DIMENS 1 _ , t 

tp 

6 

NP1 

Counter 6/ t0 tltle block 

RJ 

EW4 

EW 

Title block to tape 

TP 

UG16 

IW64 

Input line to subroutine IW 

TP 

QT 

TF5 

6 

Q 1 

FS2 \ 

Length of List masked out to FS2 

LQ 

FS2 

25 J 


RJ 

IW 

IWl 

Send list to tape 

TP 

FS 

FS6 

Count of blocks to FS6 

RA 

FS5 

FS6 

Updating accumulative block counter 

MJ 

0 

UG 


0 

0 

DL 


CA 

UG17 




Routine 

to 

Rewind Tapes 

3 and 4 

(or Tapes 6 and 7) and Move To Front 

of Op 





File 

1 on Tape 5 




IA 

EG 





0 

MJ 

0 

30000 

Exit 



1 

SP 

EG13 

0 1 

1 



2 

AT 

TN 

GT3 ; 

r Rewind Uniservo 3 or 6 



3 

RJ 

GT2 

GT J 

1 



4 

SP 

EG14 

o 1 

[ 



5 

AT 

TN 

GT3 ; 

r Rewind Uniservo 4 or 7 



6 

RJ 

GT2 

GT J 

1 


Moves to 

f 7 

SP 

FS5 

25 

Accumulative block counter (FS5) to 

right 

Front of' 

10 

AT 

EG15 

GT3 

position to add to parameter for 


Op File 1 

111 

RJ 

GT2 

GT 

generalized tape handler 


on Tape 

12 

MJ 

0 

EG 



on Servo 

13 

10 

3 

0 

Parameter to rewind 3 


5 

14 

10 

4 

0 

Parameter to rewind 4 



15 

40 

5 

0 

Parameter to move backward 5 




CA 

EG16 
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End of Generation Print-Out Routine 



IA 

BE 




0 

MJ 

0 

30000 

Exit 


1 

TP 

BE10 

UP3 1 

L Print-Out: END OF GENERATION. 

TO INTERRUPT 

2 

RJ 

UP 2 

UP J 

! COMPILATION SET A NOT = 0. 

START. 

3 

SP 

BE7 

0 

Clears A 


4 

MS 

0 

BE5 

Stop with Next Instruction in 

PAK 

5 

6 

ZJ 

MJ 

BE6 

0 

BE 1 

BQ6 J 

\ If A t* O t jump to rewind tapes and stop 

7 

0 

0 

0 



10 

0 

BE11 

13 

Parameter for Print-Out 


11 

30 

50270 

15131 

ENDAOF 


12 

01 

32305 

03054 

AGENER 


13 

24 

66345 

15022 

ATION. 


14 

01 

01665 

10134 

AATOAI 


15 

50 

66305 

45467 

NTERRU 


16 

52 

66012 

65147 

PTACOM 


17 

52 

34462 

46634 

PILATI 


20 

51 

50016 

53066 

ONASET 


21 

01 

24015 

05166 

AAANOT 


22 

01 

76032 

20101 

A = 0. AA 


23 

65 

66245 

46622 

START. 



CA 

BE24 





Routine to Write Excess-Three Symbol List on Tape (Uniservo 5) 



IA 

BU 



0 

MJ 

0 

30000 

Exit 

1 

TP 

7 

A 1 

L Is 7 is zero, there are no single-valued 

2 

ZJ 

BU3 

BU J 

f variables 

3 

TP 

A 

FS2 

Length of List to FS2 

4 

5 

TP 

TP 

BU14 

7 

NP 

NPl 

SYMBOL \ T ...... . 

Counter 7 / To tltIe block 

6 

RJ 

EW4 

EW 

Title block to tape 

7 

RJ 

BX 

BX1 

Builds excess-three symbol list 

10 

TP 

BU15 

IW64 

Input line to subroutine IW 

11 

RJ 

IW 

IW1 

List to tape with end of entry block 

12 

RA 

FS5 

FS 

Cumulative count of blocks updated 

13 

MJ 

0 

BU 


14 

65 

73472 

55146 

SYMBOL 

15 

0 

0 

BZ 

Initial address of excess-three symbol list 


CA 

BU16 
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Routine to Build Excess-Three Symbol List 


0 

IA 

MJ 

BX 

0 

30000 

Exit 

1 

TP 

7 

BX1 1 

One less than number of words in final 

2 

IJ 

BX1 

BX4 

^ list— > working storage BX1. If number of 

3 

MJ 

0 

BX J 

words is zero, bypass the routine 

4 

TP 

QT 

AT 

BX30 

A 

A 1 

Adjust to start first tnf after the 

D 

6 

BXll 

BXll J 

| Dimension List 



BX3I 

Q 

Mask—>Q for search 

7 

UN 

10 

RP 

BY30001 

BX12 1 

[■ One segment — > core 

11 

TP 

CB1 

BW J 

12 

RA 

BXll 

BX36 1 

I 

13 

TU 

BX37 

BX15 j 

r Set up to get next block and start this one 

14 

TP 

BX33 

BX2 J 

1 

15 

QT 

30000 

A 

Mask all but last 4 digits — 

16 

EJ 

BX34 

BX22 

If = 0 0 60000 — > BX22 

17 

RA 

BX15 

BX32 

Advance address 

20 

IJ 

BX2 

BX15 

Recycle to continue search 

21 

MJ 

0 

BX10 

Recycle to load a second segment 

22 

TU 

BX15 

BX24 


23 

RS 

BX24 

BX32 

Assemble the final list 

24 

TP 

30000 

BZ 

► 

25 

RA 

BX24 

BX35 


26 

IJ 

BX1 

BX17 j 

Check for completion 

27 

MJ 

0 

BX 

Exit 

30 

0 

7777 

0 

Four-digit extractor 

31 

0 

0 

7777 

Negative of mask used for search 

32 

0 

1 

0 

u advance 

33 

0 

0 

BY 

Length of segment - 1 

34 

0 

0 

60000 

Used for EJ test 

35 

0 

0 

1 

v advance 

36 

0 

BY1 

0 

Length of segment 

37 

0 

BW 

0 

Segment location 


CA 

BX40 






Code Word for Tape Data Subroutines 


IA 

BV 



0 

MJ 

0 

30000 

Exit 

1 

RP 

10005 

BV3 ^ 

Clear temporaries 

2 

TP 

BO 

B03 j 

3 

TP 

BO 

14 

Clear 14 

4 

5 

TP 

QT 

10 

BOl 

Q 

A 

Constant pool 

6 

ZJ 

BV7 

BV16 

(A) = 0 = No constant pool 

7 

DV 

BO 2 

BO 3 

(A) / 0 - Divide and store q 

10 

ZJ 

BV13 

BV11 

(A) = 0 = No remainder 

11 

RA 

BO 3 

BO 11 

Quotient + label + end 

12 

MJ 

0 

BV14 
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13 

RA 

BO 3 

B014 

(A) f 0 = remainder - add 1 + label + end 

14 

SP 

BO 3 

41 


Constant 15 

TP 

A 

14 

—* 1436,35,34 

Pool 16 

TP 

6 

l ) 

17 

QT 

BO 12 

Dimension List 

20 

ZJ 

BV21 

BM 

(A) = 0 = No Dimension List 

21 

U) 

A 

25 

(A) ^ 0 shift to v position for divide 

22 

DV 

B02 

[B04] 

Divide and store Q 

23 

ZJ 

BV26 

BV24 

(A) = 0 = No remainder 

24 

RA 

BO 4 

B011 

Add quotient + label + end 

25 

MJ 

0 

BV27 


26 

RA 

BO 4 

B014 

(A) ^ 0 = remainder add quotient + 1 + label 





+ end 

27 

SP 

B04 

33 


30 

AT 

14 

14 


31 

MJ 

0 

BM 



CA 

BV32 




IA 

BM 

+ Symbol List + Read List indicators 

0 

1 

TP 

QT 

7 

B01 

l ) 

- Symbol List 

2 

ZJ 

BM3 

BM12 

(A) = 0 = No symbol List. Go to next step 

3 

DV 

B02 

B05 

(A) ^ 0 divide by 170 

4 

ZJ 

BM7 

BM5 

(A) = 0 = no remainder 

5 

RA 

B05 

B011 

Add quotient + label + end 

6 

MJ 

0 

BM10 

add quotient + I 

7 

RA 

B05 

BOH 

(A) # 0 = remainder + label + end 

10 

SP 

B05 

25 

Shift 

11 

AT 

14 

14 

Symbol List blks — ^14 

12 

13 

TP 

QT 

12 

B013 

0 1 

A J 

[ Read List indicator 

14 

ZJ 

BMI5 

BN 

(A) = 0 = No Read List indicators 

15 

AT 

14 

14 

(A) J* 0 add —> 14 

16 

MJ 

0 

BN 



CA 

BM17 



0 

1 

IA 

BN 

14 v 


TP 

QT 

13 

BOl 

Q 

A 

Number blocks corrected problem 

2 

AT 

ES5 

[ B06 ] 

Corr. prob. + ( ES5) —> temp. 1 
- " " + l^tempJ 0p Flle 1 

3 

RA 

B06 

B010 

4 

5 

TP 

QT 

5 

BOl 

Q 1 

A J 

[ List 1 

6 

ZJ 

BN 7 

BN15 

(A) = 0 = No List 1 

7 

DV 

B02 

[ B07 J 

No. blks List 1 —> temp. 

10 

ZJ 

BN 14 

BNll 

(A) = 0 = No remainder Add f ot ;j ent + label 

4- end 

11 

RA 

BO 7 

BOll 

12 

RA 

BO 7 

B06 

Subtotal 

13 

MJ 

0 

BN 16 

(A) / 0 = remainder add + 1 + label 

+ end 

14 

RA 

BO 7 

BOH 

15 

RA 

BO 7 

B06 

Subtotal 

16 

RA 

BO 7 

BO 3 

Add constant pool 
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17 

RA 

BO 7 

B04 

Add Dimension List 

20 

SP 

BO 7 

0 


21 

AT 

14 

14 

Totals thru constant pool —» 14 Y 

22 

TP 

14 

Q 1 


23 

QT 

B01 

A J 


24 

AT 

B05 

A 

(A) = 14 V + Symbol List 

25 

TJ 

BO 15 

BV 

(u) > (A) its o.k. exit 

26 

TP 

BO 16 

UP 3 

(u) not > (A) print warning: WARNING. 

27 

RJ 

UP 2 

UP 

UNISERVO 5 DATA WILL EXCEED 2500 BLOCKS. 





ATTEMPT BEING MADE TO CONTINUE COMPILATION, 

30 

MJ 

0 

BV 

Exit 


r « 

Vvrt 

BN 31 




IA 

BO 



0 

0 

0 

0 


1 

0 

0 

77777 

Mask 

2 

0 

0 

170 

Wordsg 1 blk 

3 

0 

0 

0 

Constant pool 

4 

0 

0 

0 

Dimension List 

5 

0 

0 

0 

Symbol List 

6 

0 

0 

0 

Corr. prob. + (ES5) + 1 

7 

0 

0 

0 

Temp. 

10 

0 

0 

1 


11 

0 

0 

2 

Label + end 

12 

0 

7777 

0 

Mask 

13 

0 

3 

0 

Mask 

14 

0 

0 

3 

Remainder + label + end 

15 

0 

0 

4705 

2500io + 1 

16 

00 

BO 17 

21 

Parameter for print 

17 

71 

24545 

03450 

WARNIN 

20 

32 

22010 

16750 

G.AAUN 

21 

34 

65305 

47051 

ISERVO 

22 

01 

10012 

72466 

A5ADAT 

23 

24 

01713 

44646 

A AW ILL 

24 

01 

30722 

63030 

AEXCEE 

25 

27 

01051 

00303 

DA2500 

26 

01 

25465 

12645 

ABLOCK 

27 

65 

22010 

12466 

S.AAAT 

30 

66 

30475 

26601 

TEMPTA 

31 

25 

30345 

03201 

BEINGA 

32 

47 

24273 

00166 

MADEAT 

33 

51 

01010 

10101 

OAAAAA 

34 

01 

01265 

15066 

AACONT 

35 

34 

50673 

00126 

INUEAC 

36 

51 

47523 

44624 

OMPILA 

37 

66 

34515 

02277 

TION, 


CA 

B040 
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Temporary Region FS 


0 Number of blocks of any List transferred to tape 

1 Number of full blocks of a list transferred 

2 Number of lines in partial block or first-number of lines i 

3 Number of blocks of constants on tape 

4 Number of blocks of Library List on tape 

5 Number of blocks accumulative back to beginning of Op File 

6 Number of blocks of Dimension List 


List 
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